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Turn Your Screen Into a Canvas 
and Your Mouse Into a Paintbrush 


Access Disk Sectors from BASIC 


Learn Beginning 
Assembly Language Techniques 
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TELECOMMUTER” _ 


INTEGRATED WORD PROCESSING 
AND COMMUNICATIONS SOFTWARE | | 


For the Tandy 1000, 1200 and 2000, and IBM-PC/XT/AT and compatible L ey 
computers. Uses all the Model 100/Tandy 200 TEXT and TELCOM 
commands. 

WHY BUY JUST FILE TRANSFER? 

TURN YOUR DESKTOP COMPUTER INTO | 
A'SUPER MODEL 100/TANDY 200'! pese Í 


For $200 you can put all this on your desktop computer: 





——— = 


e Full function Word Processor based on and compatible with 
Model 100/Tandy 200 TEXT Editor. | i 


@ Super Power Communications based on and compatible with — PHÁ« 
Model 100/Tandy 200 TELCOM. Í 


j 

e FastFile Transfer between Model 100/ Tandy 200 and desktop | | 
at 9600 baud. Fully prompted at every step so you'll never get pos 
lost. And we supply the cable at no extra cost! 


e Host Mode for remote control of desktop computer from Model 
100, Tandy 200, dumb terminal, or any computer with Telcom 
capability. 


You don'thave to put extra code on your Model 100 or Tandy 200 to transfer 
files — no cassettes, no ROM cartridges. Telecommuter will exchange files | 
with any computer that has an RS-232 port and communications software, | 
even another desktop computer. | 


Optional advanced features include XMODEM protocol file transfer, full 
VT100 terminal emulation, Telcom scripts and macros for automatic dialup | 
and file transfer, DOS access from editor, and multiple access level Host eum 
Mode. TC-Corporate allows individual user assignments, such as pass- ' 
word, access level and time limit; keeps activity log. 


Telecommuter is a new and significantly easier way to use your portable and I reel 
desktop computers together. Call or write today for more information on our | | 
entire line of fine software products. 


We accept MasterCard and VISA for mail or telephone orders, and we ship 
free in the USA. Upgrade any time for price difference. 


TC-standard or TC-XMODEM $200, TC-DeLuxe $300, TC-plus $400, and 
TC-Corporate $1000. 
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Look for Jeg at your local Radio Stek Computer Store! i 
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Tandy 200 24K $739 
Model 100 24K $510 


Smith Corona L-4000 
$259 


Tandy 1200 HD $1599 
10 Meg. 256K 


Color Computer Il 
w/64K Ext. Basic $179 


Tandy 1000 $779 
Tandy 1000 HD $1539 


DMP405 $160 


BIG SAVINGS ON A FULL COMPLEMENT OF RADIO SHACK COMPUTER PRODUCTS 


COMPUTERS 

Tandy 1000 1 Drive 128K 
Tandy 1000 HD 10 Meg. 256K 
Tandy 1200 10 Meg. 256K 
Tandy 2000 2 Drive 256K 
Tandy 2000 10 Meg. 256K 
Model IVD 64K with Deskmate 
PRINTERS 

Radio Shack DMP-130 269.00 
Radio Shack DMP-430 660.00 
Radio Shack DWP-220 Daisy Wheel469.00 
Radio Shack TRP-100 Portable 229.00 
Silver Reed EXP-550 Daisy Wheel 425.00 
Star SG-10 245.00 
Star SG-15 410.00 
Star SD-10 365.00 
Panasonic P-1091 275.00 
Toshiba 351 1175.00 
CITOH Prowriter 8510AP+NLQ 345.00 
Okidata 192 375.00 
Epson LX-80 245.00 
Epson FX-185 369.00 
Epson HS-80 Portable Ink Jet 339.00 


779.00 
1539.00 
1599.00 
1295.00 
2025.00 

889.00 


Tandy 1000/1200 ACCESSORIES 

Tandy 1000 Disk Drive Kit 159.00 
Tandy 1000 10 Meg. Hard Drive 579.00 
Hard Drive Controller Board 265.00 
256K Ram Board (inc. 128K & DMA)199.00 
512K Ram Board (includes 128K) 169.00 
256K Memory Plus Expansion Brd.249.00 
PBJ Multi-Function Board (128K) 269.00 
PBJ Multi-Function Board (256K) 299.00 
PBJ Multi-Function Board (512K) 349.00 
128K Ram Upgrade Kit (NEC) 78.00 
256K Ram Upgrade (for PBJ Board)69.00 
300 Baud Modem Board 429.00 
4200 Baud Modem Board 249.00 
RS-232 Serial Board 89.00 
Digi-Mouse/Clock Board 89.00 


Tandy 1000/1200 MONITORS 

Tandy VM-2 Green Monitor 429.00 
Tandy CM-2 RGB Color Monitor 379.00 
Tandy VM-3 TIL Green Monitor 179.00 
Tatung CM-1360 Color/Gr./Amber459.00 
Tandy 1200 Text Monitor Adapt. 179.00 
Tandy 1200 Color/Graphics Adapt240.00 


CALL TOLL FREE 
1-800-343-8124 


LOWEST POSSIBLE PRICES 
BEST POSSIBLE WARRANTY 
KNOWLEDGEABLE SALES STAFF 
TIMELY DELIVERY 

SHOPPING CONVENIENCE 


P.O. Box 1094 
480 King Street 
Littleton, MA 01460 


MODEMS 

Radio Shack DCM-3 Modem 52.00 
Radio Shack DCM-5 Modem 99.00 
Radio Shack DC Modem 2212 315.00 
Hayes Smartmodem II 300 Baud 169.00 
Hayes Smartmodem 1200 Baud 429.00 
Novation J-Cat 300 Baud 115.00 
FOR EVERYONE 

Network Four Outlet Surge Prot. 
CCR-81 Cassette Recorder 52.00 
CCR-82 Cassette Recorder 43.00 
C-20 Digital Cassette Tapes (10pk) 9.95 
Verbatim SSDD Plastic Box (10pk) 24.95 
Verbatim DDDD Plastic Box (10pk) 29.95 
Generic SSDD Diskettes (10pk) 17.95 
NEC 64K Ram Chips (set of 8) 39.00 
Radio Shack 16K Ram Chips (8) 25.00 
Locking Disk Box (holds 70) 19.95 
Flip N File Disk 50 15.00 
Fanfold CleanEdge Paper (2600) 35.00 


69.95 


Radio Shack software 10% off. 
Send for complete listing of 
brand name software and hardware. 


SINCE 1973 


IN MASSACHUSETTS CALL (617) 486-3193 


TRS-80 is a registered trademark of Tandy Corp. 
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Tandy computers 


offer everything 
-= almost 


Check out the software that completes their systems 
—filePro® 
Tandy MS-DOS Software Comparison Chart erro 
- = = The new Tandy computers 
, Pts dBase filePro 16 can really speed things up. If 
File/Report li Smallware you don't let obsolete 
GENERAL software bog you down. 
Chañacremismos: | | | Tey toro te the ates 
generation of data base 
| Menudriven | ves | no [| YES IA Sofware trom the authors of 
Allows user to create integrated rogrammer Profile®. 
[business systems | no | Parea | YES Bl. Choose it tor its power 


Developed systems and data can be (check our capacities); its 
moved to multi-user environments ease-of-use (check our 


Professional support available features); and its unique 
from the software's authors 


ability to grow as your needs 
CAPACITIES: 


grow, and even move the 
systems you create to multi- 
user computers. 
Fields per record 
Characters per record 1679 
Records per file 


filePro is available for the 
Indexes per file 




















Tandy 1000, 1200 and 2000 
computers (hard disk 
required). Available directly 
from us or through your 
Radio Shack store's Express 


65535 Order Software service. 


















Number of digits per numeric field (800) 847-4740 
when pene in New York 


Ask for Smallware sales. 
Visa and MasterCard 


FI. Also available for other computers, 


including IBM PC, IBM PC-XT, and 
NCR Decision Mate. 5 





FEATURES: 


Full-screen facility for creating 
custom screen layouts 


Full-screen facility for creating 
custom report layouts 


Built-in field types 
(error checking) 


User-defined field types 
Conditional math 


User-defined menus 






















programmer 
required 


programmer 
required 


programmer 
required 


possible 


programmer 
required 


YES Sy 
©) The Small Computer Company, Inc. ` 


240 230 West 41st Street, Suite 1200, New York, New York 10036 


Smallware and filePro are registered trademarks of The Small Computer Company, Inc. dBase II is a trademark of Ashton-Tate. pfs File/Report 
is a registered trademark of Software Publishing. Profile is a registered trademark of Tandy Corporation. 





Change file layout without 
losing existing data 


possible 





Data protection 








Password security 
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A Word to the 
Doomsayers 


dislike doomsayers and I suppose 
JE summer will someday be known 

as the summer of the personal 
computer industry's discontent. 

Just about everywhere, even in some 
publications which contend they sup- 
port a particular computer, there have 
been stories aplenty about how the 
computer industry is in a slump, how 
sales are off and, in some cases, a 
wondering aloud about whether a 
computer is all it's cracked up to be. 

There are some real good reasons for 
the doomsaying, but there are many 
solutions as well. The solution would 
be obvious to anyone who might have 
caught a certain full-page advertisement 
in the Wall Street Journal last week. 
The ad was placed by Tandy Corp. 

The advertisement compared the 
IBM PC, XT and AT to the Tandy 
1000, 1200 and 2000. Much of the 
comparison was on the basis of price, 
but there were other comparisons too 
— based on the sheer quality of the 
hardware. Yes, I know, this was all 
written by the people in Fort Worth, 
but nevertheless, the day is long since 
past when you can put anything but 
the truth in an advertisement. 

The truth is that the Tandy MS-DOS 
family comes out head and shoulders 
above the IBM family. In terms of 
abilities; in terms of support; in terms 
of cost. Pure and simple. 

So why do we have so much doom 
and gloom? 

I think I know the reason. Most of 
the *popular press" have, for quite some 
time, been enamored by two "stars" — 
the IBM PC and the Apple MacIntosh. 
But, in recent years and recent months, 
I believe the average consumer has 
become more aware of the limitations 
of those machines and they have been 
searching around for something else. 


They have put off buying to see what 
develops. 

If you know someone like that, tell 
him or her the search is over. Just lead 
them to a Radio Shack store or 
Computer Center. 

If you wish ease of use, get a 1000 
or 1200 and use GEM. Same excellent 
mouse-supported friendliness as the 
Mac — and at a lot greater speed. If 
you want to number crunch, try the 
Tandy 2000 — my "Norton Utilities 
Index" tells me the 2000 is several times 
faster than the IBM PC. And, if you 
also want some software (which you 
do), you can get the computer and some 
software from Tandy for the same price 
as the hardware alone from IBM or 
Apple. 

Stewart Alsop wrote recently that he 
has a theory of how computer sales will 
go. He said that when everyone expects 
sales to be good, they are usually bad; 
and vice versa. Since everyone expects 
the last quarter of the year to be a dog, 
Alsop says he thinks it will be truly 
excellent. 

I agree. But I happen to think that 
is because people will be finding the 
power and the price equation from 
Tandy much too difficult to resist. And 
I think this realization of power and 
price will translate into an excellent 
fourth quarter computer market for 
those who can compete. 

I know Tandy can and will. 


Pd be remiss if I did not just add 
a little note that PCMfest in Princeton, 
N.J. is almost upon us. It is Oct. 11- 
13 and we certainly hope you will be 
with us. 

Check out the official announcement 
elsewhere in this issue of PCM and join 
us in Princeton! 


— Lonnie Falk 














TANDY 1000. 
INTERNAL HARD DRIVES ` 


e COMPLETE KIT 

















e NO ADDED MEMORY TE 
BOARD NECESSARY NOTHING ELSE TO 0 
BUY ji | 
* BOOTS OFF HARD 
DRIVE e INSTALLS IN HE 
MINUTES WITH ONLY 
$ TERMS- A SCREWDRIVER k 
MONEY ORDER 
CASHIER'S CHECK e INTERNAL KITS 
"COD. AVAILABLE FOR": 
*MASTERCARDI VISA TELEVIDEO : 
5% FEE TANDY 1000 
SANYO 
COMPAQ 
LEADING EDGE 
PANASONIC 
CORONA 
IBM PC 
"PLUS SHIPPING 8. NOVA 
HANDLING AT&T, NOR 8 m. 














HARD DRIVE & CONTROLLER ARE 100% IBM COMPATIBLE. WE USE ONLY QUALITY. 
DRIVES & WESTERN DIGITAL CONTROLLERS FOR THE HIGHEST QUALITY. WE. ' 
BACK THE FULL SYSTEM WITH A 1 YEAR WARRANTY. THE SYSTEM COMES 
COMPLETE WITH ALL CABLES & MOUNTING HARDWARE. REQUIRES NO ADDED | 
MEMORY BOARD TO OPERATE. 20 & 32 MEGABYTE INTERNAL HARD DISKS Lati 
AVAILABLE. COMPLETE INFO AVAILABLE UPON REQUEST. 


HTX TECHNOLOGIES, INC. 
PO. BOX 50398 | 
NASHVILLE, TENN. 3/209 








(615) 373-1251 M 


(I Letters to PCM 


"ODE TO PCM" 


Editor: 

I sat and sobbed, I was dejected 

In a world of bytes, I felt rejected 
No pulp-mate for my best friend “Candy” 
(My name for my sweet 2K from Tandy). 


Through endless magazines did scour 
Searching yea, on endless hour 
Countless pages, filled with hype 
Of other computers, not my type. 


And then one day, my eyes beheld 
My heart within my bossom swelled 
I jumped, and shouted “Praise the Lord!" 
My “Candy” hadn't been ignored! 


I found you, "PCM," at last 
And since then, *Candy's" been a blast! 
Like "Maidenform," you gave support 
To “Candy’s” charms. A glad retort! 


With "Skedit," “Gallery” and flags array 
Wayne Sanders "Webs," blow you away! 
“Candy” is happy and so am I 
"PCM" delivers more than pie in the sky! 


Lou Hefner 
San Pedro, CA 


Editors Note: Negotiations are under- 
way for a nationally-known music 
group to record "Ode to PCM." A 
video is also in the works. Kidding! 


2000 MYSTERIES 


Editor: 

Although the Tandy 2000 is an excellent 
machine, there are a number of errors in 
the manuals and many subjects on which 
it is difficult, if not impossible, to obtain 
information. Perhaps PCM can act as a 
clearinghouse for such problems. Some of 
the following was obtained directly from 
Tandy after being unable to get answers at 
local Computer Centers or the new Area 
Training and Service Offices and may be 
helpful to other 2000 owners: 

I. The codes produced by the 12 function 
keys, and DELETE, INSERT and HOME keys 
when used in combination with SHIFT, CTRL 
and ALT are regular single character codes 
rather than the extended codes shown in 


the manuals. In order to use some programs 
written for the Tandy 1000 or IBM PC, you 
must trap for these combinations and add 
the zero character to create the extended 
code. Tandy states that this is a Microsoft 
error and should be corrected in the "next 
version." 

2. When using SOUND, the length of the 
tone cannot be set beyond approximately 
ten. Therefore, beware of timing loops 
requiring longer tones. This is to be fixed 
in a "future version," timing unknown! 

3. Cursor start and stop parameters in 
LOCATE don't work from BASIC, but with 
assembly language, you can produce either 
a full block cursor or an underline cursor, 
but nothing in between. 

4. The function key for SCREEN has a 
third zero which should be utilized for 
"vpage" or "apage" options. These com- 
mands will not be implemented on the 2000 
because "the hardware is not able to perform 
these functions." 

5. In assembly language programs, Soft- 
ware Interrupt 11 Hex checks the equipment 
connected to the computer. Bit 13 for the 
printer apparently checks for installation of 
a printer controller board. This hardware 
is built into the Tandy 2000 (purchased 
separately with IBM PC) and therefore, any 
program which checks this bit will always 
be set. 

6. Although you use COMI to set up the 
RS-232 buffer from BASIC, you must use 
RUX to access this port from MS-DOS. For 
example, the following batch file dials a 
number: 

MODE COM 300 (sets RS-232 port at 300 

Baud, no parity, 8 bits, I stop) 

ECHO RTDT 111-222» AUX (sends Hayes 

dial command and number to modem) 

7. The memory map on Page 345 of the 
BASIC manual, Appendix D, is incorrect for 
DOS version 2.11.01. With no loadable 
device drivers or other system parameters 
in a CONFIG.SYS file, MS-DOS is at 
05E0:0000 and the user program area begins 
at 0B16:0000. The video buffer is the last 
5K of memory and the BIOS buffer area 
takes up the immediately preceding 7K of 
memory. 

Undoubtedly, other readers have found 
additional problem areas. Thank you for 
keeping PCM as a source of Tandy 2000 help. 
It's great to see articles by familiar, 
knowledgeable writers such as John Harrell, 
Robert Covington and Bill Barden in PCM. 


Charles R. Perelman 
Los Angeles, CA 


Editors Note: Our readers thank you 
and we thank you. Keep the infor- 
mative bits coming! 


REPORTS* COMPATIBILITY 


Editor: 

We are very pleased to have received our 
first issue of PCM. We've been Tandy 
computer fans since 1978 and own a TRS- 
80 Model I, Model 100 and more recently 
a Tandy 1200HD. 

We bought the 1200 in late December 
1984 hoping to gain IBM compatibility. This 
is fine for 95% of the IBM software we use. 
Unfortunately, the other 5% is the killer! 

Does anyone in this country know how 
to modify the BASIC programs generated by 
IBM's Personal Decision Series Reports* 
module? Apparently, Reports+ sets a 
memory pointer to IBM BASIC ROM or it 
does not allocate enough room in which GW- 
BASIC can reside. I either get an "Error 
loading GW-BASIC" when GW-BASIC resides 
in the root directory, or an "insufficient 
memory" error when it is in the \LIB1 
subdirectory. 

Needless to say, the Reports+ module is 
in the main software product I use at work 
and would love to have it working on the 
1200. Reports* works fine, but its generated 
BASIC programs won't, 

If someone could help, it would save us 
$5,000 for an IBM XT! 

Thank you so much for any and all 
information you may be able to supply! 

Bernadette M. Kennelly 
Pittsburgh, PA 


Editor's Note: You recieved the 
"Error loading GW-BASIC" message 
because both of the GW-BASIC files 
(BRSIC.COM and BASIC.EXE) need to 
be in the current directory when 
you're running a BASIC program. 
Otherwise, the search path set up with 
MS-DOS's PRTH command will find 
the first file but will be unable to find 
the second part. 

Once you are successfully in BASIC, 
it is possible that the program you're 
using will require more memory on 
the 1200 than on an IBM. This is 
because IBM BASIC is partially stored 
in ROM while the entire BASIC 
programming language must be 
loaded into RAM on a Tandy 1200 
leaving less room for your application 
program. Adding memory should 
solve this problem. 

It could be, however, that Reports* 
is acutally trying to use direct calls 
to IBM's BASiC ROM — a poor 
practice since a ROM change can 
make the program obsolete. In this 
case, there's nothing you can do short 
of finding new software (or new 
hardware). 
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For the TRS-80 Model 100 


More than a Calendar 


TMPC helps you organize 
your day. It is more than a 
calendar program: it is a 
toolbox to help you keep 
your most urgent tasks at 
top priority. 


Efficiency is no Game 


When you use TMPC, you 
enter the system of 
screens and corridors 
shown above and access 
features by moving 
through the rooms with 
the arrow keys. The 
screens may resemble an 
adventure game, but 
TMPC is a serious tool. 
The user interface will be- 
come second nature to 
you, like walking through 
the rooms in your home. 


Functions for Efficiency 


Each screen has its own 
function. For example, one 


Day 1157355 Left 





screen includes a per- 
petual calendar, and an- 


other shows a "warehouse" 


of tasks to be done. In 
other screens you can set 
entries that repeat weekly, 
monthly, quarterly or 
yearly; request a warning 
of up to 999 days for any 
entry; sort your to-do list 
by stress level and 
priority: and more. 


Organization Philosophy 


TMPC has more than just 
"features;" it has a 
philosophy of time man- 
agement inspired by 
Stephanie Winston's best 
seller, The Organized 
Executive. You won't learn 
all there is to know about 
TMPC in five minutes, but 
after using it, you'll feel 
more organized, not just 
more computerized. 


A Plan for Efficiency 


161118 
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Spreading the Word 


One user told us that 
he felt guilty to get so 
much functionality at 
so low a price. Find out 
for yourself. Order 
TMPC today. 


TMPC by Ac'rōă'’tix 
$49.95 + $3.00 Shipping 


For more information, includ- 
ing how to get a Free Sample, 
call or Write: 

Acroatix Incorporated 
P.O. Box 273 
Wilmington, MA 01887 
(617) 658-5550 


Phone orders only call 


(800) 225-5800 


a 
VISA MasterCard 
caer Pu) 
COD or Courier shipment available at extra 
charge 
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MEL. Feature 1000, 1200 


Turn your Tandy s Screen into an Artist's 
Canvas with this BASIC Program 


ketch is a BASIC program that lets 
RY: user draw pictures on an 

editing screen and offers tools to 
the user to make this simpler. It also 
offers two ways to save the picture. 
Drawing pictures in BASIC is tedious, 
especially if you make a mistake or want 
to get something "just right." You might 
have to go through the program, edit 
and rerun it dozens of times for just 
one part. The object of this program 
is to make all this a little easier. 

The majority of the functions of 
Sketch are handled through the func- 
tion keys, while some are handled with 
letter keys. You can use a keyboard- 
controlled cursor (small blinking dot 
moved with the arrow keys) or a mouse- 
controlled cursor. There is a macro 
function that remembers a list of 
commands and repeats them when 
needed. 

The program provides two ways to 
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save the picture. The first is called a 
“subprogram.” This actually duplicates 
equivalent commands and saves them 
into a BASIC file (ASCII format) which 
can later be rerun or merged into a 
program to duplicate the picture. The 
other is a memory image save. It stores 
an image of screen memory to disk so 
the image can later be recalled in 
another program. 


Start-Up 

To start the program, type BASIC and 
press ENTER at the DOS prompt. When 
BASIC comes up, type RUN “SKETCH” 
and press ENTER. There will be a brief 
message. Press ENTER again, then 
answer the Model 100072000 prompt. 
Now the program will ask for a 
filename. This is the *subprogram” 
initialization. If you answer NONE, 
Sketch will not save anything to disk. 
If you enter a valid program name, 
anything you do will be stored to disk 
under that name as a BASIC program. 
Simply pressing ENTER will save the 
program under the default of 
SRVE.TXT. 

Next, the program will ask for palette 
values to use in the editing process. You 
should read about palettes in the BASIC 
manual for more detailed explanations, 


By Kevin Chester 


but here are the fundamentals. There 
are sixteen colors available, but only 
eight can be displayed at any one time. 
When executing a graphics function, 
BASIC uses palettes to specify colors 
(there are eight palettes, zero through 
seven). The user associates eight of the 
sixteen colors to the palettes, one color 
per palette. When drawing, you specify 
the palette you wish to use, and the 
associated color will appear on the 
screen. Note that you can re-associate 
the palettes and colors later in the 
program; if you do, all things previously 
drawn with the palette in question will 
also change to the new color. Note also 
that the background color is usually 
palette zero. When the prompt appears, 
enter the number of the color you wish 
to have associated with each palette. 
Now the screen will clear, leaving you 
with a small blinking cursor in the 
middle and an arrow for the mouse. 


Keyboard Cursor Control 

The first commands deal with cursor 
movement. There are four things the 
cursor must know: the distance to 
move, the direction, whether or not to 
draw a following line and the color or 
palette currently selected. To choose a 
distance, press the SHIFT key and a 
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number (not on the numeric keypad) 
then press an arrow to choose a 
direction. The cursor will now move the 
number of spaces chosen in the direc- 
tion chosen. For example, press SHIFT- 
9. This selects ten spaces per move. Now 
press the up arrow. The keyboard 
cursor will move ten pixels (or spaces) 
up. 
The 1 key toggles the line function. 
To turn the line function on, press the 
1 key. To turn it off, press the 1 key 
again. This tells the program that you 
want a line to follow the cursor in the 
current color. Press 1 and move the 
cursor. To choose the current color, 
press a number key (from zero through 
seven on the 2000 and from zero to nine 
on the 1000). This tells the program that 
any drawings done are to be drawn in 
the color associated with the palette 
number you pressed. Press 4 and draw 
a line with the cursor. It will appear 
in the color you specified in the start- 
up screen. 

It is important to make sure that the 
CAPS key is off. For all applicable 
commands, the shifted letter will select 
the command for the mouse and the 
lowercase letter will select the command 
for the keyboard. Press L now and move 
the mouse. 


Function Keys 

e FI will provide a list of the commands 
that all of the other function keys will 
do when pressed. Press Fi. At the top 
left F1 DISPLAY FUNCTIONS will 
appear. Press the plus key (*) and the 
minus key (-) to go up and down the 
list. Press ESC to return to the graphics 
screen. Anything drawn in the upper 
left corner of the display will always 
be returned after a command has erased 
It. 

€ Press F2. This will provide a list of 
all the colors available. Once again, plus 
(*) and minus (-) go up and down the 
list while ESC returns to the graphics 
screen. If, whilein Function 2, a number 
from zero to seven is pressed, that 
palette will be changed to the value now 
showing at the top of the screen. For 
example, press F2, and then press the 
plus key (*). Color 1 (blue) will be 
shown. Press 9 and Palette 0 will be 
changed to blue. Press the minus key 
(-) to go back down to zero (black) and 
press Ø again. The background color 
will return to black. 

€ F3 is similiar to F2 in that it provides 
a way to change the palette values. 
When F3 is pressed, the upper left is 
cleared, ready for entry. The format is 
like this: Lus 26090340 le 
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where all x's are palettes and u's are 
colors. This is the same as the BASIC 
palette command. For example, 
3,6,2,5 will change Palette 3 to Color 
6 (brown) and Palette 2 to Color 5 
(magenta). Anything drawn with 
Palettes 5 and 6 have now had their 
colors re-associated to magenta and 
brown respectively. Pressing ENTER 
when finished entering values or press- 
ing ESC at any time will return you to 
the graphics screen. 

e F4 will draw a circle with its center 
at the keyboard cursor. Enter the radius 
when prompted. The other prompts 
control more complex aspects of a the 
circle. If you want a simple circle, just 
press ENTER at the prompts you don't 
understand. Otherwise read the BASIC 
manual for a more complete explana- 
tion. For example, move the cursor 
somewhere, press F4 and then type 10@ 
at the first prompt. For the other 
prompts, just press ENTER. A circle with 
center at the cursor and a radius of 100 
will be drawn. 

Note: the values that you enter will 
be remembered. If you do not enter 
anything for a certain prompt the 
specification for that prompt will be 
taken from the last circle drawn. When 
the program is started, all values are 
set to default values for a perfect circle. 
To reset a certain prompt to its default 
value after changing it, enter 99.99 at 
the prompt you wish to reset. 

e F5 draws a line from the keyboard 
cursor position at which F5 was first 
pressed to the keyboard cursor position 
at which F5 was pressed a second time. 
Press F5, move the cursor to a new place 
and press FS again. A line will be drawn 
connecting the two points. To change 
the color of lines drawn, select a new 
current palette by pressing a number 
from zero to seven. Lines will now be 
drawn in the color associated with that 
palette. 

€ F6 works exactly the same as F5 except 
it draws a box with the two opposite 
corners located at the points selected. 
€ F7 is the paint function. It will fill 
any shape that has a complete border 
with a color. Create a shape (with F4 
or F6, for example), place the cursor 
within the shape and press F7. The first 
prompt will ask which palette to use 
to fill in the shape. The second prompt 
will ask for the palette of the border 
of the shape. For example, create a 
circle with palette Number 3. Press F7 
and answer 7 to the first prompt and 
3 to the second prompt. This tells the 
function to start filling with palette 
seven and stop when a border with 


palette three is found. Note that this 
function can be aborted by entering 
99.99 at either prompt. 

€ F8 starts the program over and closes 
the subprogram. More on this later. 

O F9 stores a memory image of the 
screen onto disk which can later be 
recalled with F10. Press F9 and the 
computer will ask for a filename. Do 
not add an extension, just a filename 
of up to eight characters, press ENTER 
and wait for it to save. 

* F10 will recall a memory image saved 
with F9. Answer the prompt with the 
filename under which you saved your 
picture (up to eight characters and no 
extension) and wait while it comes up. 
* ri! clears the screen and sets the 
cursor back to the center. 

® F12 provides a simple status for the 
keyboard cursor. It reports on the 
coordinates of the cursor and whether 
the line toggle is on or off. Press ESC 
to exit from here. 


Keyboard 

Once again, it is important that the 
CAPS key is off. Many of the keys have 
two functions, one for lowercase and 
one for capitals. 
e | and L have already been mentioned 
as toggles for the line function on the 
keyboard and the mouse respectively. 
e p clears the top left and provides a 
list of the palettes and the color values 
associated with them. 
O s will set a point in the current palette 
at the current keyboard cursor location. 
* r will reset the point at the current 
keyboard location. Note that resetting 
is the same as setting in palette 0. 
* c will move the keyboard cursor to 
the position of the mouse cursor. 
* C will move the position of the mouse 
cursor to the keyboard cursor. 
e The slash key (7) will clear the upper 
left and tell what palette value is at the 
location of the keyboard cursor. 
* The question mark key (?) will tell 
what palette value is at the location of 
the mouse cursor. Ås you move the 
mouse, the display will be updated to 
show the palette value at each location 
over which the mouse travels. As an 
example, press ? and move the mouse 
around (over some colors). Press ESC 
to exit these two functions. 
e The slash (^) and question mark (?) 
keys are most useful when you want 
to fill in a shape already on the screen 
but can't remember what palette it was 
drawn with. This is vita] information 
for the paint function because it will 
cover everything within the described 
border (the palette value you give it). 
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e j will ask for an X-coordinate and 
a Y-coordinate. The keyboard cursor 
will be moved to this location. 

e w will give you a cursor which can 
be moved around with the arrow keys. 
Typing letters on the keyboard makes 
them appear on the screen at the 
position of the cursor. Press ESC to 
leave this. 

€ x, X and q are all part of the macro 
function which will be explained later. 
9 m creates a mark in the BASIC text 
file. 

There are two more keys that are not 
on the keyboard, but are vital to the 
mouse. The left key on the mouse 
operates the same as the F5 key, but 
it works on the mouse. Press the left 
key on the mouse and release it. Now 
move the mouse across the screen, and 
press it again. A line will appear 
connecting the two points. 

The right key on the mouse operates 
to negate the effect of the L toggle. If 
the L toggle is on, then whenever the 
right key is held down, the toggle will 
think it is off. Whenever the L toggle 
is off and the right key is held down, 
the toggle will think it is on. Try turning 
the toggle on with L. Now move the 
mouse around, drawing a line. Press the 
right key and continue moving the 
mouse. The line will stop, but when you 
let the right key up, the line will start 
again. 


The Macro 

Sketch provides a macro function; 
that is, a way of storing a group of 
commands under one key. It is very 
useful in reproducing a series of 
commands for a single object: for 
example, trees on a map. To start 
storing commands in the macro, press 
x. Any commands that put graphics on 
the screen will be stored. To end storing 
commands, press X. 

Move the keyboard cursor to another 
spot on the screen and press q. This 
key is the command to operate the 
macro. Everything that was stored 
under the macro is now reproduced at 
the new cursor location. If the mouse 
is used to draw, the locations of the 
lines drawn are remembered relative to 
the keyboard cursor. 

The macro utility will store up to 
1,000 commands from the keyboard or 
mouse. When this is reached, the macro 
will automatically stop itself and flash 
a message to that effect. 

For example: first press x, then turn 
on the line function for the keyboard 
cursor. Now draw a square and fill it 
in with the paint command. Draw a 
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circle around that, then set the cursor 
distance to one pixel per move and 
doodle for a little while. Then press X 
and move the cursor to a new spot on 
the screen. Press q and watch the object 
appear again. If you are drawing maps, 
this would be great for trees or symbols. 


The BASIC Text File 

The second way of saving the drawn 
picture is by writing it directly into a 
BASIC file which can later be run or 
merged with other files. On startup, 
when Sketch asks for a filename for 
program store, this is the function that 
is operating. Entering none or NONE will 
tell Sketch not to save the picture as 
a program. Just pressing ENTER will tell 
Sketch to save the picture as a file called 
SRVE.TXT. 

After drawing the picture, press F8 
to exit and close the saving file. Then 
you can run the file you saved (just type 
run”filename” and ENTER). After 
loading the saved file it is a good idea 
to save it back to disk, since Sketch 
saves it in ASCII format instead of 
binary format. 

The m key, or mark function, is used 
here to remember spots in the subpro- 
gram. Say you draw a line in the wrong 
place. It's no problem to just erase it, 
but that will show up in the subpro- 
gram, too. Pressing m will store a “REM 
* mark number #” where the number 
sign (4) is a number which increments 
for each new mark. Now, go back and 
find the mark and delete the errant lines. 


Typing The Program 

Sketch was designed to run on 
the Model 2000 high-resolution eight 
color (screen Mode 4) or the Model 
1000 medium-resolution sixteen-color 
(screen Mode 5). It is also designed to 
run with the mouse attached. There are 
two possible modifications you might 
want to make to the program. If you 
do not have the mouse software you 
must delete all references to the mouse. 
Also, if you want to make the program 
run on the Model 1000 medium- 
resolution four-color (screen Mode 4) 
to save time and memory when drawing 
and saving to disk, then all SCREEN 5 
references must be changed to SCREEN 
4. 

Here is a list of mouse references and 


corrections: 

Line 120 — delete (or put behind a 
REM) CRLL to 3820. 

Line 480 — delete (or put behind a 
REM) CRLL to 4240. 

Line 1460 — delete mouse CALL. 

Line 1500 — delete mouse CALL. 


Line 2220 — 
Line 2260 — 
Line 2600 — 


delete mouse CALL. 
delete mouse CALL. 
insert a RETURN state- 
ment or delete the 
CRLL in Line 720 since 
this function requires a 
mouse attached. 

insert a RETURN state- 
ment or delete the 
CALL in Line 660. 
insert a RETURN state- 
ment or delete the 
CRLL in Line 680. 
delete (or put behind a 
REM) mouse reference. 
delete (or put behind a 
REM) mouse reference. 

That should take care of not having 
a mouse. Of course, this program can't 
be fully appreciated without the fluid 
motions available with a mouse. 

If you only need four colors on the 
Model 1000 instead of the 10 that 
Sketch provides, it might be a good idea 
to change all of the SCREEN 5 references 
to SCREEN 4, since working in SCREEN 
5 is slower and takes up about four 
times as much disk space when saving 
an image. 

Here is a list of things to change: 


Line 3900. — 


Line 3920 — 


Line 4160 — 


Line 4180 — 


Line 80 — change CLEAR 
, „4000 , 32768 to 
CLEAR ,,4000. 

Line 80 — change PVAL=9 to 
PVAL=3. 

Line 110 — change SCREEN 5 to 
SCREEN 4. 

Line 530 — delete (or protect with 
a REM) the entire line. 

Line 4380 — underFIE1$ change 


SCREEN 5 to SCREEN 4 
and delete the CLEAR 
statement within the 
string. 
That will make the Model 1000 run 
in screen Mode 4. 


Notes 

€ Sketch requires MS-DOS 2.11.xx or 
later and BASIC 1.03 or later. 

€ The CONFIG.SYS file must be initial- 
ized to DEVICE=MDUSE . SYS (the driver 
that comes with the mouse package). 
lf it isn't, the program must have the 
above mouse references changed. 

€ The fastest way to move the cursor 
around is to move the mouse and 
press c. 

€ If you are creating a subprogram and 
doing some fine or close work with the 
mouse, it would probably be best to 
use the keyboard cursor with the line 
function on and the spacing set to one 
or two, since the line function on the 
mouse operates continually. If the 


mouse moves very slowly, or stops, the 
subprogram will have a lot of LINE 
statements in it that draw only dots. 

€ It is not possible to continue re-edit 
a picture saved as a subprogram at a 
later date. What you can do is, right 
before you press F8 to close the file, 
save a memory image of the picture. 
That way, you will have a subprogram 
getting you to that point, and a memory 
image of the result on file. Load Sketch 
and and start a new subprogram. Recall 
the memory image and continue work- 
ing on it. After closing the subprogram, 
you can merge the old with the new 
for a complete picture. 

e If you want to display a memory 
image of your picture in a program of 


your own, include these program A 


statements: 


(for the Model 2000): 

DEF SEG=&HEØØØ 

BLORD R$*".PLO^,0:0UT 416,50 
BLORD R$*^.PL1^,0:0UT 416,52 
BLORD R$*".PL2^,0:0UT 416,49 
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(for the Model 1000): 
DEF SEG=&HB8ØØ 
BLORD AS+”.SAV” ,@ 


The variable AS is the name of the 
saved file. 
e On the Model 1000, make sure you 
know which screen mode the picture 
was created under and that you’re 
calling it back under the same one, 
otherwise you can get some pretty 
strange results. 
* On the Model 1000, don’t move too 
fast, whether it’s the mouse, keyboard 
cursor or function keys. The 1000 just 
can’t keep up with a fast artist. 


Variables 
temporary storage. 


AS — temporary storage. 

A( — stores current palette 
values. 

RSPECT — aspect ratio for circle 
command. 

BOXON — flag for F6 indicating 


start or end of box. 
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origin coordinates for 
F6 box function. 
stores color names for 
F2. 

current cursor (or 
palette) value. 

current number of 
statements in the cur- 
rent line of the 
subprogram. 

current line within the 
subprogram. 

storage buffer for top 
left window. 

end value for circle 
function. 

used to determine the 
logical validity of 
variables. 

storage string used to 
send statements to the 
subprogram. 

stores the twelve func- 
tion names for Fl. 
INKEYS trap for the 
main loop. 
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flag for F5 function 


indicating start or end 


of line. 


mouse. 


‘T line function flag. 
values passed to the 


on/ off flag indicating 


status of macro. 


sequence. 


stores macro. 
current mark number. 
model value (1 for 


current number in 


Tandy 2000, 2 for 
Tandy 1000) 


*L' mouse line func- 
tion flag. 
used in determining 


location of mouse 
software support. 


flag for left mouse 


button, indicates start 
or end of line. 


used in determining 


location of mouse 
software support. 


KEY(11) 
KEY (12) 
KEY(13) 
KEY(14) 
KEY(15) 
KEY (16) 


GOSUB 
GOSUB 
GOSUB 
GOSUB 
GOSUB 
GOSUB 
489 GOSUB 414Ø:GOSUB 


1999: 
2289: 
4020: 
4940: 
4969: 
4089: 
4240 


MX, MY 
NUM( 


DMX , OMY 


PVRL 


QWERTY 
RADIUS 
START 
SVF 


TBL 


TBLS( 


TRUE 


KEY(11)ON 
KEY(12) ON 
KEY(13)ON 
KEY(14)ON 
KEY(15)ON 
KEY(16)ON 


current coordinates of 
mouse. 

used in the F3 (change 
color) function. 
starting position of 
line for mouse line 
function. 

number of palettes 
available for current 
model. 

temporary storage for 
FOR/NEXT loops. 
radius value in circle 
function. 

start value in circle 
function. 

flag indicating opera- 
tion of subprogram. 
used as a pointer in F3 
function (change 
color). 

stores values in F3 
function. 

used to determine log- 
ical validity of state- 
ment or variable. 


** MAINLOOP STARTS HERE ** 


KYS$-INKEYS$:IF KY$-"" THEN 489 
IF(ASC(KY$)>47 AND ASC(KY$)<56) THEN CURC-VAL (KY$) 


WAS 
X1, Å 


X2,Y2 


X3,Y3 


XG, YG 


XDIF , YDIF 


Xl,Yl 


XPLUS 


XY 


MDL-2 AND (ASC(KY$)>55 AND ASC(KY$)«58) THEN CURC-VAL (KY$) 
LINEON-NOT LINEON:GOTO 849 
MLINON-NOT (MLINON):GOTO 849 


KYS=" 1" 
KYS="L" 
KY$-"j " 
KYS="m" 
KYS=" s" 
KYS="y" 
KYS="e" 
KYS="C" 
KYS="/" 
KYS=" ? " 
KYS="p " 
KYS="x" 
KYS="X" 
KYS="q" 
KYS="w" 


FOR I=1 TO 
GOTO 489' 
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2469 
2369 
2389 
2429 
3999 
3929 
2549 
2699 
2799 
3929 
3949 
3189 
3489 


used to make the key- 
board cursor blink. 
current location of 
keyboard cursor. 
old location of key- 
board cursor for line 
function. 

current location on 
screen for write 
function. 

temporary storage 
coordinates for ‘j’ 
jump function. 

used during the 
macro procedure to 
force the macro to 
draw at the new 
location. 

used in FS to store 
start of line. 
increment value for 
keyboard cursor 
when moving. 

saved value under key- 
board cursor (non- 
destructive cursor). 


1g:IF KY$=COL$(I) THEN XPLUS-I:FOR I=Ø TO Ø:NEXT ELSE NEXT 
** MAINLOOP ENDS HERE ** 
F(1)-Display Functions 

GOSUB 4540:P-1 
909 LOCATE 1,1:PRINT SPACE$(25):LOCATE 1,1:PRINT P" "FUNCTIONS(P); 
92% AS-INKEYS$:IF A$ -"" THEN 929 
949 IF A$="="THEN P=P+1:IF P212 THEN P-12 
960 IF A$="-"THEN P-P-1:IF P«1 THEN P-1 
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989 IF ASC(A$)-27 THEN GOSUB 456Ø:GOSUB 46ØØ:RETURN 

1999 GOTO 999 

1919 ' F(2)-Display Colors 

1929 GOSUB 458Ø:GOSUB 4549: P=9 

1949 LOCATE 1,1:PRINT SPACE$(25):LOCATE 1,1:PRINT P" "COLRS(P); 

1960 AS-INKEYS:IF A$-"" THEN 1969 

1989 IF A$="=" THEN P=P+1:IF P>15 THEN P-15 

11ØØ IF A$="-" THEN P=P-1:IF P<Ø THEN P=Ø 

112Ø IF A$>="Ø" AND A$«"8" THEN PALETTE VAL(AS) , P: A(VAL(AS$) )=P 

1149 IF ASC(A$)=27 THEN GOSUB 4560:GOSUB 46ØØ:RETURN 

1169 GOTO 1949 

LEZO: :? F(3)-Change Color 

118% GOSUB 458Ø:GOSUB 454Ø:P=Ø 

1299 AS-INKEYS:IF A$="" THEN 1299 

1228 A=ASC(AS):IF A-13 THEN 1280 ELSE IF A=27 THEN GOSUB 4600:GOSUB 456%:RETURN 

1249 IF (A>47 AND A<49+PVAL) OR A=44 THEN 1260 ELSE 1299 

1260 IF P=2Ø THEN 1299 ELSE TBL$(P)=A$:PRINT TBL$(P) ;:P=P+1:GOTO 1299 

1289 TBL$(P)=CHR$(13):P2=P:P=9:P3=9:AS="" 

1399 TBL-ASC(TBLS$(P)):IF TBL-13 THEN 1349 ELSE IF TBL<48 THEN NUM(P3)-VAL(A$):AS$ 

="":P=P+1:P3=P3+1 ELSE AS=A$+TBLS$(P) : P=P+1 

1320 GOTO 1399 

1349 NUM(P3)=VAL(AS) :IF P3/2=INT(P3/2)THEN 136% ELSE 1380 

1360 LOCATE 1,1:PRINT SPACE$(25);:BEEP:LOCATE 1,1:PRINT"ENTRY ERROR";:FOR I-1 TO 
259P:NEXT:P=9:LOCATE 1,1:PRINT SPACE$(25);:LOCATE 1,1:GOTO 1299 

1389 FOR I=Ø TO P3 

1499 IF I/2-INT(I/2) AND NUM(I)>PVAL THEN FOR I=Ø TO Ø:NEXT:GOTO 1369 

1429 IF NUM(I)>31 THEN GOTO 1369 

1449 NEXT I:FOR I=Ø TO P3 STEP 2:PALETTE NUM(I) ,NUM(I+1):FIE1$=FIE1$+"PALETTE "+ 
FNRT$ (NUM(I) )+", "+FNRTS (NUM(I+1) ) : A(NUM(I) )=NUM(I+1) :GOSUB 462Ø:NEXT:GOSUB 4569: 

GOSUB 46ØØ:RETURN 

1459 ' F(7)-Paint Area 

1460 GOSUB 458Ø:GOSUB 4540:GOSUB 416Ø:LINE INPUT"PALETTE #";A$:GOSUB 4560:IF AS= 
"99,99" THEN 1549 ELSE IF (LEN(A$)>1 OR VAL(A$)>PVAL) THEN GOTO 1460 ELSE A=VAL( 

A$) 

1480 GOSUB 454Ø:LINE INPUT"BORDER #";A$:GOSUB 456Ø:IF A$="99.99" THEN 154Ø ELSE 
IF (LEN(A$)>1 OR VAL(A$)>PVAL) THEN GOTO 1489 ELSE AA=VAL(A$) 

15ØØ GOSUB 152Ø:GOSUB 46ØØ:GOSUB 418Ø:RETURN 

1520 PAINT(X1,Y1) ,A,AA: FIELS=FIE1$+" PAINT ("+STRS (X1)+", "+STRS$ (Y¥1)+") ,"+STR$ (A) +" 
, "+STR$ (AA) :GOSUB 462Ø:IF MAC THEN MACROS (MACRO)="7"+STR$(X1)+STRS (Y1) *STR$ (A) *S 

TRS (AA)+" ":MACRO=MACRO+1:RETURN ELSE RETURN 

1540 GOSUB 418Ø:GOSUB 46ØØ:RETURN 

1559 ' F(4)-Draw Circle 

156% GOSUB 416Ø:GOSUB 4549 

1589 LINE INPUT"RADIUS ";A$:IF A$=""THEN 169% ELSE IF A$-"99.99"THEN 1799 ELSE R 

ADIUS=VAL(AS) 

1609 LOCATE 1,1:PRINT SPACE$(25):LOCATE 1,1:LINE INPUT"START ";A$:IF A$=""THEN 1 

629 ELSE IF A$-"99,99"THEN 1790 ELSE IF (A$="S" OR A$="s")THEN START=5Ø ELSE STA 

RT=VAL(AS) : IF (START>-6.283187 AND START<6.283187) THEN 1620 ELSE 1699 

1620 LOCATE 1,1:PRINT SPACE$(25):LOCATE 1,1:LINE INPUT"END "-AS: TF AS=""THEN 1 

649 ELSE IF A$-"99,99"THEN 1790 ELSE IF (A$="S" OR A$="s")THEN END1=6.283186 ELS 

E END1=VAL(AS$):IF (END1>-6.283187 AND END1«6.283187) THEN 1649 ELSE 1629 

1649 LOCATE 1,1:PRINT SPACE$(25):LOCATE 1,1:LINE INPUT"ASPECT";A$:IF A$=""THEN 1 

669 ELSE IF (A$="S" OR A$="s")THEN (IF MDL-1 THEN ASPECT=25/28 ELSE ASPECT=5/6) 

ELSE IF A$="99.99"THEN 17900 ELSE ASPECT=VAL(AS) 

1660 GOSUB 456Ø:GOSUB 168Ø:GOSUB 418Ø:IF MAC THEN MACROS(MACRO)="4"+STRS$(X1)+STR 

$ (Y1)+STR$ (RADIUS)-STR$ (CURC)+STRS (START) +STRS (END1)+STR$(ASPECT)+" ":MACRO-MACR 

O-1:RETURN ELSE RETURN 

1689 CIRCLE (X1,Y1),RADIUS,CURC,START, END1,ASPECT: FIE1$=FIE1$+"CIRCLE("+STR$ (X1) 
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+" "+STRS(Y1)+"), '-STRS(RADIUS)-" , "-STRS$(CURC) *" , " STRS (START) *" , "+STRS(END1)+", 
"+STRS (ASPECT) :GOSUB 4624: RETURN 

1700 GOSUB 418Ø:GOSUB 456Ø:GOSUB 46ØØ:RETURN 

1719 ' F(5)-Draw Line 

1720 GOSUB 4589 

1749 IF NOT(LINE1) THEN LINE1-NOT(LINEl):XL-X1:YL-Y1:GOSUB 46ØØ:RETURN 

1760 GOSUB 178Ø:GOSUB 46ØØ:LINEL=NOT (LINE1):RETURN 

1780 LINE(XL, YL) - (X1,Y1) , CURC: FIELS=FIE1$+"LINE("+FNRT$ (XL)+","+FNRTS (YL) +") - ( 
"+FNRTS$S (X1)-","4-FNRTS (Y1)+"),"+FNRTS(CURC):GOSUB 462Ø:IF MAC THEN MACROS (MACRO 
)="5"+STRS (XL) +STRS(YL)+STRS (X1)+STRS (Y1)+STRS$(CURC)+" ":MAGRO=MACRO+1 
1799." F(6)-Draw Box 

1899 GOSUB 4589 

1829 IF NOT(BOXON) THEN BOXON-NOT(BOXON):BX-X1:BY-Yl1:GOSUB 4648: RETURN 

1840 GOSUB 186Ø:GOSUB 4699: BOXON=NOT(BOXON) : RETURN 

1869 LINE(BX,BY)-(X1,Y1),CURC,B:FIELS=FIEL$S+"LINE("+FNRTS$ (BX)4" ,"4ENRTS (BY)+") 
-("+FNRTS (X1)+","+ENRTS (Y1)4*) , "+FNRTS(CURC)+",B":GOSUB 4620:IF MAC THEN MACRO 
$ (MACRO)="6"+STRS (BX)+STRS (BY)+STRS (X1)+STRS (Y1L) +STRS(CURC)+" ":MACRO=MACRO+1 
18849 RETURN 

1899 ' F(11)-Clear Screen 

1999 GOSUB 4589:GOSUB 4549 

192% LOCATE 1,1:PRINT SPACES(25);:LOCATE 1,1:INPUT"CLS - SURE";AS 

1949 IF LEFTS(A$,1)="Y" OR LEFTS(A$,1)-"y" THEN CLS:GOSUB 46ØØ:RETURN 

1969 GOSUB 46ØØ:GOSUB 4564: RETURN : 

1979 ' F(1Ø)-Image From Disk 

1980 GOSUB 4589:GOSUB 4549 

2009 LOCATE 1,1:PRINT SPACES(25);:LOCATE 1,1:LINE INPUT"ENTER FILENAME: ":A$:IF 
LEN(A$)>8 THEN 2189 

2920 IF A$="none" OR A$="NONE" THEN GOSUB 4569:GOTO 2980 

2040 GOSUB 4569:IF MDL-2 THEN 2979 

2069 DEF SEG=&HEØØØ:BLOAD A$+",PLØ",Ø:0UT 416,5Ø:BLOAD AS4",PL1",0:OUT 416,52:BL 
OAD A$+".PL2",Ø:0UT 416,49:GOTO 2989 

2070 DEF SEG=&HB8ØØ:BLOAD AS+".SAV",Ø 

2080 GOSUB 46ØØ:DEF SEG=MSEG : RETURN 

2999 ' F(8)-Close File (Restart) 

2108 GOSUB 458Ø:LOGATE 1,1:PRINT SPACES(25):LOCATE 1,1 

2129 LINE INPUT"CLOSE SAVE FILE ?";A$:IF A$="y" OR A$="Y" THEN IF NOT (SVF) THEN 
RUN ELSE PRINT# l,FIEl1$:CLOSE:RUN 

2149 GOSUB 456Ø:GOSUB 46ØØ:RETURN 

2159 ' F(9)-Image To Disk 

2160 GOSUB 458Ø:GOSUB 4549 

2184 LOCATE 1,1:PRINT SPACES(25);:LOCATE 1,1:LINE INPUT"ENTER FILENAME: ";A$:IF 
LEN(A$)>8 THEN 2189 

2208 IF AS-"none" OR A$="NONE" THEN 2269 

2220 GOSUB 456Ø:M1=2:CALL MOUSE(M1,M2,M3,M4):IF MDL=2 THEN 2250 

2240 DEF SEG=&HEØØØ:BSAVE A$-".p19",0,32752:0UT 416,5Ø:BSAVE A$+".PL1",Ø,32752:0 
UT 416,52:BSAVE A$-".PL2",0,32752:0UT 416,49:GOTO 2269 

2259 DEF SEG-&HB809:BSAVE A$4".SAV",0,32575 

2260 GOSUB 456Ø:GOSUB 46ØØ:DEF SEG=MSEG:M1=1:CALL MOUSE(MI,M2,M3,MA4):RETURN 

2279 ' F(12)-Status 

2280 GOSUB 454Ø:GOSUB 4580:LOCATE 1,1:PRINT SPACES(25); 

2399 LOCATE l,1:PRINT"1:";:IF LINEON THEN PRINT "ON; ";ELSE PRINT "OFF; "; 
2320 PRINT"x-"X1;",y-"YL 

2340 AS-INKEYS:IF A$-"" THEN 2340 ELSE GOSUB 4560 :GOSUB 46ØØ:RETURN 

2359 ' -m- Mark File 

2360 CURCOM=5:GOSUB 462Ø:FIE1$S=FIEl1S+SPACES(2Ø)+"REM* mark number"+STR$ (MARK) : CU 

RCOM-5:GOSUB 462Ø:MARK=MARK+1:GOSUB 4640: RETURN 

2379. -s- Set Pixel 

2380 IF MAC THEN MACROS(MACRO)="8"+STRS(X1)+STRS$(Y1)+STRS (CURC) : MACRO=MACRO+1 
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EW TANDY 200 24K EXPANSION MODULES $129 


TWO EXPANSION MODULES FOR $249 


E 8K MEMORY MODULE $35 H 


For your Model 100 & NEC PC-8201. Field proven (over 20,000 in use), factory tested and fully supported. 


SIDESTAR $399 Portable Thermal Printer 
128K RAM DISK CARTRIDGE TTXpress MODEL 1280 $139 
For the Starlet NEC PC-8401 Battery opperated, 2.2 Ibs., 81⁄2" paper, 40 cps., parallel. 


SIDECAR 128K RAM CARTRIDGE $259 FREE SHIPPING, HANDELING & INS. FOR CONT. USA. 


i i Ë Orders shipped UPS next business day. 30-day satisfaction, 
Plugs into side of the NEC PC:8201 money back guarantee. We accept Visa, MIC & Amer. Exp. 


PURPLE 420 Constitution Ave. KE ra ip 
Vi COMPUTING Camarillo, CA 93010 (800) 732-5012 (805) 987-4788 (in caiit.) 
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3129 NEXT P 
3149 MACROS(MACRO)=MACROS : NEXT MACRO 
3169 GOSUB 418Ø:RETURN 
Rea nede -q- Display Macro 
318Ø IF MAC THEN GOSUB 3949 
å 3299 X2=X1:Y2=Y1 
3220 GOSUB 416Ø:MACRO=Ø:XDIF=FNVL(1Ø) -X1: YDIF=FNVL(19) -Y1:FOR MACRO=Ø TO MACROEN 
 D:X1=FNVL(1Ø) -XDIF: YI=FNVL(19) - YDIF 


3249 IF LEFT$(MACRO$ (MACRO) , 9)="5 "THEN GOSUB 336Ø:GOSUB 178Ø:GOTO 3469 
.. 3260 IF LEFTS$ (MACROS (MACRO) ,9)="6 "THEN GOSUB 34ØØ:GOSUB 186Ø:GOTO 3469 
..:3289 IF LEFT$(MACRO$ (MACRO) , 9) -"8 "THEN GOSUB 3380:GOSUB 24ØØ:GOTO 3460 

3399 IF LEFTS(MACROS (MACRO) , 9) -"9 "THEN GOSUB 338Ø:GOSUB 244Ø:GOTO 3469 

/.:3329 IF LEFT$(MACROS$ (MACRO) ,9)="4 "THEN GOSUB 342Ø:GOSUB 1689:GOTO 3460 
++ 334Ø IF LEFT$ (MACROS (MACRO) ,9)="7 "THEN GOSUB 3440:GOSUB 152Ø:GOTO 3469 
..3360 XL=FNVL(28) -XDIF:YL=FNVL(37) - YDIF:CURC=FNVL(46) : RETURN 
3389 CURC=FNVL(28) : RETURN 
3499 BX=FNVL(28) -XDIF: BY=FNVL(37) -YDIF:CURC-FNVL(46) : RETURN 


(03428 RADIUS=FNVL(28) : CURC=FNVL(37) : START=FNVL(46) : ENDI=FNVL(55) : 
RETURN 
78449. A=FNVL(28): AA=FNVL(37): RETURN 
(1.3460. NEXT:X1-X2:Y1-Y2: GOSUB 4189:RETURN 

03479 ' -w- Write On Screen 

| 3489 FOR QWERTY-13 TO 16:KEY(QWERTY)OFF:NEXT:GOSUB 458Ø:X3=1:Y3=1 
(359g LOCATE Y3,X3,1,7 

0 352Ø AS-INKEYS:IF AS-"" THEN 3529 

` 3549 A-ASC(AS) 

..3569 IF A=27 THEN LOCATE Y3,X3,Ø,7:GOSUB 46ØØ:GOSUB 418Ø:RETURN 


ASPECT=FNVL(64) : 





DMA Controller 
(Available without DMA Controller to use 
as second board or for IBM compatibility) 


Introducing M FB-1000 ' 


Clock/Calendar Serial Port 


Clock Battery Backup 
128K-512K Memory 


Designed for use with the new 

Tandy 1000 Personal Computer, the MFB-1000 

contains three of the most needed functions on a single 

10” expansion card. Using either 64K or 256K DRAM chips, the MFB-1000 

can be populated with up to 512 K of memory bringing total system memory 

to 640K. Additionally, the board also includes an IBM compatible serial 

communications port (identified as COM1) and a battery backed real time 

clock/calendar. As required by the design of the Tandy 1000, the MFB-1000 

also contains its own DMA Controller. However, the DMA Controller can be 

disabled, making the MFB-1000 compatible with the Tandy 1200 as well as 
other IBM compatible machines. 


5725 Kennedy Blvd. 
N. Bergen, NJ 07047 
(201) 861-0126 


Dealer Inquiries Welcome 


ORDERING INFORMATION: 

Visa/Mastercard orders accepted. Allow 2 weeks 
for personal checks to clear. Add $3.00 shipping 
and handling. C.O.D. orders add $2.00. N.J. resi- 
dents add 6% sales tax. 


H 128K RAM $329.95 H 256K RAM $369.95 E 512K RAM $429.95 


IBM is the registered trademark o! International Business Machines 
Tandy 1000/1200 are registered trademarks of Tandy Corp 
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3589 IF A=28 THEN X3-X341:IF MDL-1 THEN 3689 ELSE 3745 

3600 IF A=29 THEN X3-X3-1:IF MDL=1 THEN 3689 ELSE 3745 

3629 IF A=3Ø THEN Y3=Y3-1:IF MDL-1 THEN 3689 ELSE 3745 

3649 IF A=31 THEN Y3-Y341:IF MDL-1 THEN 3689 ELSE 3745 

3660 FIELS=FIE1$+"LOCATE"+STR$ (Y3)+" , "+FNRTS$ (X3) *" , 1: PRINT CHRS ("+FNRTS(A)+")":G 
OSUB 462Ø:PRINT CHR$(A);:X3-POS(9):Y3-CSRLIN:GOTO 3529 

3680 IF X3>8Ø THEN X3=8Ø 

3709 IF X3«1 THEN X3-1 

3729 IF Y3«1 THEN Y3-1 

3740 IF Y3>24 THEN Y3=24 

3742 GOTO 3599 

3745 IF X3>4Ø THEN X3-49 

3747 IF X3«1 THEN X3-1 

3749 IF Y3<1 THEN Y3=1 

3751 IF Y3>12 THEN Y3=12 

3760 GOTO 3599 

3789 ' mouse support routines 

3899 ' Initialize mouse 

3820 DEF SEG=%:MSEG=256*PEEK(51*4+3)+PEEK(51*4+2) : MOUSE=256*PEEK(51*4+1)+PEEK(51 
*4)+2:DEF SEG=MSEG 

3849 Ml=Ø:CALL MOUSE(M1,M2,M3,M4) 

3860 Ml=4:M3=32Ø/MDL:M4=2ØØ/MDL: CALL MOUSE(M1,M2,M3,M4) 

388% Ml=1:CALL MOUSE(M1,M2,M3,M4) : RETURN 

3899 ' -c- Set Kybd Cursor To Mouse 

3909 X1=MX:Yl=MY:X2=X1:Y2=Y1 : RETURN 

3919 ' -C- Set Mouse To Kybd Cursor 

3920 M1=4:M3=X1:M4=Y1:CALL MOUSE(M1,M2,M3,M4) : RETURN 

3939 ' React To Left Mouse Button 

3935 Called From routine (044240, Mouse Cursor Support 

3949 GOSUB 416Ø:IF MOUSLIN THEN LINE (MX2,MY2)-(MX,MY),CURC:FIE1$=FIE1$+"LINE (" 
+FNRTS$ (MX2)+" , "+FNRTS (MY2)+" ) - ("+FNRTS (MX) " , "+FNRTS (MY)+") , " &FNRT$ (CURC) : GOSUB 
4620 ELSE MX2-MX:MY2-MY 

3969 IF MAC THEN MACROS (MACRO)="5"+STRS (MX2) - STR$ (MY2) * STR$ (MX) - STR$ (MY) - STR$ (CU 
RC)+" ":MACRO=MACRO+1 

398% MOUSLIN-NOT (MOUSLIN) 

4999 GOSUB 418Ø:FOR I-1 TO 1ØØØ:NEXT:RETURN 

4005 ' Kybd Cursor Support / Movement 

4020 GOSUB 4169:Y2-Yl:Yl-Yl-XPLUS:IF Y1<Ø THEN Y1-0:GOTO 4199 ELSE GOTO 41909 
4949 GOSUB 416Ø:X2=X1:X1=X1-XPLUS:IF X1<Ø THEN X1=Ø:GOTO 4199 ELSE GOTO 4199 
4060 GOSUB 416Ø:X2=X1:X1=X1+XPLUS:IF X1>639 THEN X1=639:GOTO 4199 ELSE GOTO 4199 
4089 GOSUB 416Ø:Y2=Y1:Yl=Y1+XPLUS:IF Y1>399 THEN Yl-399:GOTO 419% ELSE GOTO 4190 
4199 IF LINEON THEN LINE (X1,Y1)-(X2,Y¥2) ,CURC: FIELS$=FIE1$+"LINE("+FNRT$(X1)+" "+ 
FNRT$ (Y¥1)+") - ("+FNRTS (X2)+", "+FNRT$(Y2)+") ,"+FNRT$(CURC):GOSUB 4620: IF MAC THEN 
MACROS (MACRO)="5"+STR$ (X2)+STRS$ (Y2)+STRS (X1)+STR$(Y1)+STR$(CURC)+" ™:MACRO=MACRO 
+l 

4120 X2-X1:Y2-Y1:GOSUB 418Ø:RETURN 

4139 ' Control Kybd Cursor Display 

4140 GOSUB 42090:XY-POINT(X1,Y1):PSET(X1,Y1),WAS:PSET(X1,Y1),XY:WAS-WAS-*1:IF MDL= 
1 AND WAS>7 THEN WAS=Ø ELSE IF WAS>3 THEN WAS=Ø 

4145 GOSUB 422Ø:RETURN 

4159 ' Routines To Turn on/off Key Trapping 

4169 FOR QWERTY-13 TO 16:KEY(QWERTY)STOP:NEXT:M1-2:CALL MOUSE(M1,M2,M3,M4):RETUR 
N 

4189 FOR QWERTY-13 TO 16:KEY(QWERTY)ON:NEXT:Ml=1:CALL MOUSE(M1,M2,M3,M4): RETURN 
4209 FOR QWERTY=13 TO 16:KEY(QWERTY)STOP:NEXT:RETURN 

4220 FOR QWERTY-13 TO 16:KEY(QWERTY)ON:NEXT:RETURN 

4239 ' Mouse Movement Support 

4235. Called From MainLoop 
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ÜUBENRTS (MY) +"), " HFNRTS(CURC) i GOSUB 4620:M1—1:CALL MOUSE(ML,M2;, M3,MA) nn 
HM $ (MY) ESTRE (CURG) t. Jn RAT RO RMAGE SEH § RETURN ELSE RETURN HURTS ii 


(4339 15 ""lAscii Program Save Initialization 


1554360 ON ERROR GOTO 4449: KILL F$:OPEN"O",L,F$ i 
4389 CURLIN=2Ø: IE. MDL=1 "THEN FIELS="19 cls:screen 3:color Ø,1": - CURCOM-A : GOSUB 46 


114469 IF ERR=5 THEN I-1-1:RESUME NEXT | | | 
| 4489 IF BRR=53 THEN LOCATE 1,1: PRINT SPAGES(25)::LOGATE 1,1: PRINT ` ene (7), "FILE 


"NAL(AS):A(IL)SA:NEXT | | i 
(4420 FOR T= TO PVAL:A=A(I): FIEIS-FLEL ge" PALETTE TERRE (IE HANS) GOSUB 4 
62Ø:NEXT:ON ERROR GOTO 4469: RETURN 

4440 IF ERR><53 THEN ON ERROR GOTO Ø ELSE OPEN" 1, FS: CLOSE: RESUME | 


45ØØ IF ERR-9 THEN BEEP:GOSUB 4549: LOCATE 1,1:PRINT SPACES (25)::: LOCATE, "mb PRINT 
"MACRO OVER EXTENDED"; : FOR QWERTY-g TO 1ØØØ:NEXT:LOGATE 1,1: PRINT"MACRO ENDS AT | 


(4529 STOP. 
(4549. GET (Ø, gy: (199,15), CURSORS : LOCATE 1,1: RETURN. 


de FOR ble TD. 16: E ds ought RETURN 











bern IF. MLINON AND sp ey THEN MIH: CALL MOUSE (MI, v2, M3: M4): LINE (OMX. pum 
- (MX MY), CURG: FIE1$=FIE1S+"LINE ("+FNRTS(OMX)+", "+FNRTS (OMY)+")- (YHENRTS (MK) en 


4320 IF (MAC AND MLINON) THEN MACROS (MACRO) 15 fS TR (OMX) STRE (OMY) + STIRS (MX) SR 


4349 SVF=-1:F$=""| CLS: LINE INPUT"enter filename for program store: 06 “FS: IF Dinh 
THEN! FS="SAVE. TXT" ELSE IF F$-"NONE" OR: F$-'none" THEN SNE GOTO lial lit 


20 ELSE FIELS="1Ø cls:screen 5:color M,1:clear ,,,32768":CURCOM-A:GOSUB: 4629: | 
4499 CLS;FOR I=9 TO PVAL:LOGATE 1,1:PRINT "value for paletteii "LINE INPUT AS: As 





4489 tos ii) Error Trapping Support 
NOT FOUND" +): FOR: T=Ø TO 5ØP: NEXT: RESUME NEXT 


THIS baud EEN TO 1ØØØ:NEXT:GOSUB 4569: GOSUB 3949: RESUME NEXT HEHEHEH 









4539 "n HUNE Window Support 


4560 PUT: (9,9), CURSORS, PSET: RETURN: 


HH PRINTE ` 1, PETA dg oen GURLIN=CURLING LØ ELSE ne IN 


Bos FOR 1-9. TO det READ COLRS (1) : NEXT: FOR I=1 TO 19: READ ENE NEXT: RETUR 


Eg BOX, PAINT AREA, CLOSE FILE (RESTART), IMAGE. TO: Disk, IMAGE FROM DISK, | CLEAR. 'SCREE 
UN) STATUS 


“4640. CURGOM-CURCOM+1 : RETURN 









Wagn HH RE BATE HA ESBKI / Data: Read THEATRE 
4669 FOR: Ted To. 12: KEY. (I) OFF:KEY I, "READ 19: FUNCTIONS (D) -18; NEXT | 
4680. FOR I=13 TO 16: KEY (I)OFE:NEXT 00 


4749. DATA BLACK, BLUE, GREEN. CYAN , RED MAGENTA | BROWN, GRAY, BLACK, ur. BLUR, Hs | GREEN, i 


1477Ø | "Title Screen and 1900/2000. Ku EEE Hin 
0104789: SCREEN ø: COLOR. idu ib WIDTH 8Ø:CLS PRINT CES: dl oriented sketching 
program v 4.50" i HEB HR 
104899: LOCATE 5:10: PRINT" By Kevin Chester --- (73975, 1592] 
15,4820 LOCATE 23,69: : PRINT press <enter>" 

(4849. AS=INKEYS: IF AS><CHR$ (13) THEN 4849 


LINE INPUT"Enter '1' for MIØØØ or. RAM for M209Q:; "; SE A=VAL(AS) 
(1,5879 IF A«l OR A»2 THEN 4860 | 
55,4889 MDL=1: IF A=1 THEN MDL-2 | "melet for 12099: mdl=2 for d 
NEM RETURN | i i 
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“LT. LIGHT CYAN, LT.) RED, LT. MAGENTA, ERAAN i WHITE 


4769 DATA DE, HSS EG) 


4869 CLS:PRINT"This program runs on either the Model 1999 or Model 2999. HH ' PM 
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IOC LIT E un 
ELECTRONICS 


TRS-80 Model 2000 by Tandy“ 


MS-DOS Based 





Computer System 





256K MOD2000 W/MONO MONITOR 1319.00 
256K MOD2000 W/COLOR MONITOR 1629.00 
256K MOD 1200 HD 2 DR; . rreson 000 ern 1499.00 
128K MOD 1000 W/MONO 1 DR. ............. 839.00 
128K MOD 1000 W/COLOR 2 DR. ........... 1199.00 
256K MOD 1000 W/HARD DISK 

24K MOD 100 PORT 

24K MOD 200 PORT 

64K MOD 4D 2 DR 

512K MOD 6000 2DR. 

80K MOD 12 2 DR 

15 MEG HARD DISK 

35 MEG HARD DISK 

DMP 105 PRINTER 

DMP 2200 PRINTER 

DMP 120 PRINTER 

DMP 430 PRINTER 















































TRACTOR FEED DMP2100P 
PARALLEL PRINTER SWITCH 


PARALLEL PRINTER CABLE 
DISK VIDEO INTERFACE 


100% RS COMPONENTS NO FOREIGN DRIVES OR MEMORY FULL WARRANTY 
ALL RS SOFTWARE 20% OFF CATALOG PRICE 
CASHIERS CHECK OR MONEY ORDER MUST ACCOMPANY ALL ORDERS 


(817) 825-4027 


NOCONA ELECTRONICS . Box 593 + NOCONA, TX 76255 





II MS-DOSsier 


Put some flair into your MS-DOS prompts 


Prompts with Style 


or the past two months, we have 
b through an introductory 

course on using MS-DOS's ANSI 
.SYS device driver. Today, we'll put 
some of those ANSI codes to work for 
us through the use of the MS-DOS 
PROMPT command. 


Cute Little Prompts 

By now, the familiar A>, B> and C> 
prompts are probably good friends of 
yours. They tell you that MS-DOS is 
patiently waiting for your next com- 
mand. And, being the nice guys that 
they are, they let you know what the 
current default drive is. 

As utilitarian as the cute little MS- 
DOS prompts are, they are sometimes 
lacking in ... well, charisma. Yes, I 
hate to say it, but our little prompt 
friends are quite boring. An occasional 
"Your Wish is My Command>” 
prompt or "What Now?" would cer- 
tainly make those long nights at the 
computer a little less tedious. 

What about when one has to set up 
a computer to be used by a novice? 
There's nothing like a cryptic A> 
prompt staring a new user in the face 
to perpetuate the stereotype of the big 
mean computer. Something along the 
order of “Howdy! What'll it be?" is 
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much more in tune with these compu- 
ters? Texan roots. The prompt could 
even say something like, “Type HELP 
if you need it" as a comfort to the new 
user. 

Well, all this and more is possible 
thanks to MS-DOS's PROMPT com- 
mand. 

PROMPT allows you to change the MS- 
DOS prompt to just about anything you 
like. It can even contain the current 
drive letter, the directory path, the date 
and the time. Imagine a bank-marquee- 
like prompt: *At 10:50:00 the default 
drive is A." 

With the use of ANSI codes, you can 
even have the prompt change screen 
colors and other attributes. If you want 
the screen to always be white on blue, 
you can have the MS-DOS prompt 
change the attributes to those colors 
each time it is displayed. This way, if 
you go into a program that changes the 
colors, they will return to your preferred 
colors when your prompt appears. 


Darned Easy 

One of the best things about PROMPT 
is that it is so darned easy to use. 
Suppose we want to change the prompt 
to "Now What?." The command would 
be: 
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By Danny Humphress 


PROMPT Now khat? 


The next prompt you see will be your 
own creation! 


Special Characters 

Some characters (especially ANSI 
codes) cannot be entered directly when 
using PROMPT. MS-DOS has provided 
a way around this though, by using 
special character sequences. Just as 
ANSI codes are preceded with an ESC 
character, special PROMPT codes are 
preceded with a dollar sign ($). Here 
is a list of those codes: 


Code Prompt 

$$ The $ character 

$t The current time 

$d The current date 

$p The current directory 

$v The MS-DOS version number 

$n The current drive 

$g The > character 

$1 The < character 

$b The | character 

$h A carriage return and line 
feed 

$s A leading space 

$h A backspace 

$e The ESC character 


As you know, the *normal" MS-DOS 
prompt is the drive letter followed by 
a greater-than character (>). If we put 
this in PROMPT terms, the command 
would be: 


PROMPT $n$g 


The $n causes the prompt to display 
the current drive and $g displays a 
greater-than character (>). If you 
change the default drive, MS-DOS will 
be smart enough to change the prompt 
accordingly. If you had used A instead 
of $n, the prompt would always say A> 
— not very desirable unless you want 
to really confuse someone! 

A prompt that I personally like to 
use is: 


PROMPT $p$g 


This prompt shows the current 
directory path (including the drive 
letter) and a greater-than symbol. If, 
for example, you were in a directory 
called WORDSTAR on Drive C, the 
prompt would be C:\WORDSTAR>. I 
find this especially useful in that you 
are never in doubt about which direc- 
tory you're currently in. 

Some people who have just recently 
learned how to use PROMPT tend to go 
super fancy. They'll use prompts that 
show the date, time, directory, MS- 
DOS version and their own little 
message. That's OK, though, you're the 
one who has to live with it! And besides, 
it's a good way to learn about PROMPT 
while having fun at the same time. Try 
this prompt on your computer to see 
what I mean: 


PROMPT It’s $t on $d$. You're in 
$p$ Readu$g$.. 


Don't confuse the underline charac- 
ters (_) with the hyphen (-). The 
command code $.. causes the prompt 
to advance to a new line. 

You may have noticed that $$ prints 
a single dollar sign ($). If you were to 
use a single dollar sign in the PROMPT 
command line, MS-DOS would think 
that it was part of one of the special 
codes. MS-DOS knows to print a single 
dollar sign ($) in the prompt wherever 
you used $$. 

Another special circumstance is when 
you want the prompt to start over a 
number of spaces from the left margin 
of the screen. If you just entered spaces 
between PROMPT and your text, MS- 
DOS would ignore them. The way 
around this is to use $s for each leading 


space you want. For instance, to indent 
the prompt ten spaces, use ten $s's. 
After you've entered a character other 
than spaces, MS-DOS will start paying 
attention to the spaces. So actually, you 
only need to enter one $s and nine 
spaces — the spaces after the $s will 
be printed normally. 


ANSI Prompts 

As mentioned earlier, it is possible 
to embed ANSI code sequences into 
MS-DOS prompts. One interesting use 
for this, if you have a color monitor, 
is to use the prompt to keep the screen 
colors changed to ones you like. I, for 
example, have a magenta prompt 
showing the directory path and com- 
mands are entered and displayed in 
blue. This is done by changing the color 
to magenta before displaying the 
prompt and then changing the color to 
blue. Here's my favorite prompt: 


PROMPT $e[35m$p$g$e[34m 


Look complicated? Well, if you take 
it one code at a time, it's not so bad. 
The $e [35m sends an ESC character ($e) 
and the ANSI code for magenta ([ 35m). 
The $p and $g display the current path 
and a greater-than character (>). 
Finally, $e[ 34m sends an ESC character 
followed by the ANSI code for blue. 

After entering this prompt, what you 
type in MS-DOS and what is displayed 
on the screen will be in blue. The 
prompt will be in magenta. 

Now, my taste in colors runs slightly 
left of normal. So, I won't be offended 
if you tone them down to your own 
tastes. But as I said, / am the one who 
has to live with it! 

If you have a color Tandy 2000, you'll 
not be able to get colored prompts 
without first changing the screen mode 
to color. This is done by sending the 
ANSI code, ESC [3h to the screen once. 
Use the BASIC program from last month 
or use a PROMPT $e[3h to get it in the 
proper mode and then enter your new 
prompt codes. You would not want to 
put $e[3h in your normal prompt, since 
it clears the screen each time it's sent 
to the screen. 

With a little creativity, you can create 
some marvelous and exciting prompts. 
It kind of makes me feel sad for our 
true-blue (make that white) A>, B and 
C> friends. But, what the heck. Com- 
puters don't have feelings — do they? 

Seriously, PROMPT is the one com- 
mand in MS-DOS that lets you really 
express your creativity. Have a ball! 
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Educational Software 
that WORKS 
at PLAY 


An innovative and entertaining 

puzzle game designed with well 

known crossword techniques. 

LE For TANDY Computers 

e 45 different color puzzles 

e Timing and Scoring 

LE Additional puzzle diskettes 
EEE] 

Call 


1-601-373-2508 
or send for information to 
ISTAR CORPORATION 
P.O. Box 567 
Brandon, MS 
39042 

© COPYRIGHT 1985 
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Give us °5% and well put the world 
on your Tandy PC! 


Quick, what's the capital of Sri Lanka? What countries do you pass through traveling from Copenhagen to 
Rome? For learning, explaining, or just plain daydreaming, there's nothing like an atlas. Now, with CONCEPTS 
COMPUTERIZED ATLAS, the world enters the computer age. You can too. In your own home and for only 


$5. Thanks to our unique Phoenix Plan. 


What Is a Computerized Atlas? 


You can forget the bulky volume with the endless 
index. We put a full-color, three-dimensional 
globe on your screen. Turn it east, west, 

north, or south. Select an area that inter- 

ests you and enlarge it. tt 


Visit any state in the United States, 
any province in Canada. Visit 
any country in the world! Sim- 
ply type the name, and the 
Atlas brings it to the cen- 
ter of the screen. A closer 
look? Magnify it twice, 
Three times, five times! 
Call up the Fact Sheet to 
find the population, the 
size, the capital, the mon- 
etary unit and more. 


OurAtlascongieyouin- ^. 
formation on more than 2500 ~~ 
cities. Just type the name, the 
Atlas shows you where it is. And 
tells you the city's latitude and longi- 
tude, its population, and facts about 
the country it's part of. Big cities, histori- 
cal cities, vacation spots, places in the news. 


With our Atlas, you can even find the distance 
between two places in the world, a feature no 
bulky volume can duplicate. And the Atlas can 
calculate it in land miles, nautical miles, or kilo- 
meters. How far is it from London to Moscow in 
kilometers? Iceland to the Virgin Islands in nauti- 
cal miles? It's easy with our Atlas. 


Our Atlas was compiled from a number of 
sources, including a CIA satellite. Over three years 
of research have gone into our Atlas to make 
sure that it has the latest, most up-to-date infor- 
mation available. 


System requirements: Tandy 2000, 1200, or 1000, 
28K of memory, a color graphics board, and a 
















The Phoenix Plan 


The Plan is simple. Try our Atlas before you buy it. 

For only $5 you get the complete Atlas soft- 

ware and with it our easy-to-follow instruc- 

tion booklet. This is nof a demonstration 

disk— you have all the capabilities 
of the Atlas at your fingertips. 


You can load the program 
three times and use it each 
time for as long as you 
like. After the third time, 
the program locks. If you 
decide not to keep the 
Atlas, simply format the 
disk, and you have a 
blank quality disk The 
blank disk alone is a $4 
value. 


But if you want to keep 
Atlas (and we ihink you 
will), simply dial the toll-free 
number in the instruction book- 
let and charge it to your American 
Express, MasterCard, or VISA. The oper- 
ator will take your order and give you the 
unlocking code over the phone. Our Atlas 
costs only $69.95. (Of course, we'll deduct the $5 
you paid for the Phoenix) 


Our patented Phoenix Plan has been successfully 
used to market our business software by Lanier, 
Philips and Xerox—to name a few. Now, for the 
first time we are making the Phoenix Plan avail- 
able to the PC marketplace. So why don't you try 
it? Fill out the order form below and send it with 
your $5 today. You've got nothing to lose and the 
world to gain. Available at participating Software 
Concepts dealers (inquiries invited). 


YES, put the world on my Tandy PC. I enclose my $5.00. 
Please send the Atlas to: 


color monitor. "E 
? h Address 
course, you have to try our Atlas to appre- CN 
ciate it. We know that. So we have devised the 
Phoenix Plan to let you do just that — and for little State/Zip 
more than the cost of a blank disk. DTandy 2000 C Tandy 4000/4200 


CONCEPTS COMPUTERIZED 


tlas 


Mail to Software Concepts, P.O. Box 3323, Wallingford, CT 06494 


©1985, Software Concepts, Inc. 


* Rand McNally & Co. RL 84-GP-11 





II Barden's Buffer 


1000, 1200, 2000 


Assembly Language 
on the Tandy 
MS-DOS Computers 


66 C you write an 8000- 

word article that would be 

a good introduction to 
assembly language on the Tandy 1000, 
1200 and 2000?" the PCM staffer 
inquired. “Ah ... well ... in 8000 
words, that's a little difficult. Assembly 
language is tough! It's not something 
you can explain in one article," I 
hedged. *Come on, give it a try," the 
staffer urged. 

The result is this column and next 
month's column. What I've tried to do 
in the two is strip assembly language 
down to the bone, and provide a tutorial 
that will show you how to write short 
assembly language code that will 
interface to BASIC. You won't even need 
an expensive assembler program 
($99.95 from Tandy) to learn some of 
the techniques here. Since I've already 
used 121 words, we'd better hurry 
on 


(William Barden, Jr., is a master 
communicator in a field in which he 
is one of the few recognized experts 
—microcomputers. Å prolific author of 
more than 27 books and handbooks on 
computers and computer program- 
ming, Bill also has authored several 
instructional software projects for 
Tandy/ Radio Shack.) 


What Assembly Language Is 

The 8088 microprocessor in the 
Tandy 1000 and 1200 and the 80186 
microprocessor in the Tandy 2000 
contain a built-in instruction set of 
simple instructions called machine 
language. Ultimately, every program 
that runs on these systems boils down 
to a sequence of machine language 
instructions, from the BASIC interpreter 
to Lotus 1-2-3, dBASE and Microsoft 
Word. Even though it may appear that 
instructions are being executed in a 
higher-level language such as BASIC or 
PASCAL, every function becomes a low- 
level machine language instruction, 
such as *add two eight-bit numbers," 
“jump to Location ‘X’ if the result of 
the last subtract was zero," and "read 
in a byte from the communications 
port." 

The 8088 and 80186, by the way, 
contain a nearly identical instruction 
set, so we'll be using the generic term 
“8088” to describe both the Tandy 1000, 
1200 and Tandy 2000. 

A typical short program to add the 
numbers from one through 100 could 
indeed be coded in machine language 
as a series of ones and zeros, as shown 
in Figure 1. Such coding was actually 
done in the early days of computers. 
Ten thousand bleary-eyed pro- 


By William Barden, Jr. 


PCM Contributing Editor 


grammers later, however, a new tech- 
nique was developed. 


Assembly Language Coding 

Assembly language replaced the 
tedious machine language program- 
ming of ones and zeros with a more 
English-like input. Assembler programs 
translated mnemonics representing the 
machine-language instruction set into 
the corresponding machine language 
code automatically, as shown in Figure 
2. Programmers could now code in 
symbolic code rather than binary ones 
and zeros or hexadecimal. The assem- 
bler program processed the assembly 
language code in much the same way 
as a BASIC compiler processes BASIC 
statements. 

The Tandy systems have a special, 
sophisticated assembler program called 
a Macro Assembler that processes 
programs written in assembly language. 
It provides all kinds of bells and 
whistles, including the capability of a 
type of “in-line” subroutine called a 
macro. However, for our purposes, 
we'll use the assembly capability of the 
DEBUG program found on all Tandy 
MS-DOS system disks. DEBUG contains 
a mini assembler that is equivalent to 
the first assemblers developed for 
computers. More importantly, it pro- 
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vides a way to quickly enter assembly 
language code, assemble it and debug 
it. If this is done on the Macro 
Assembler, the process is much more 
tedious because the assembly language 
text must be entered via EDLIN or 
another text editor, loaded and 
assembled by the Macro Assembler, a 
listing printed and the result of the 
assembly — an *object module" — 
loaded into memory by a "link load" 
process. The convenience of the DEBUG 
assembler is perfect for the first-time 
assembly language student. 


Loading Debug 

The journey of a thousand instruc- 
tions starts with the first byte. The first 
step in learning assembly language is 
to load DEBUG from MS-DOS: 


A>debug 


After loading you'll see a minus sign. 
This is a *prompt" character indicating 
that DEBUG is ready for the next 
command. 


A>debug 


CPU Registers 

The first command to try is R, for 
register. After pressing the R key 
(lowercase or uppercase, it doesn't 
matter), you'll see a display like 
Example 1. 


Because we're dealing with three 
systems here, some of the displays I've 
indicated may display different address 
values or memory contents values than 
yours. As long as the displays look more 
or less the same, you're in fine shape! 
The displays here are those that appear 
on a 128K Tandy 1000. 

The R command displays the 8088 
registers. The registers in the 8088 are 
really just high-speed memory loca- 
tions. They are used to hold temporary 
data, such as the results of adds, sub- 
tracts, shifts and input/output opera- 
tions. All data transferred between the 
8088 CPU and user memory generally 
passes through CPU registers. Registers 
are not addressed by numbered loca- 
tions, although they could be. They are 
also not part of memory, but exist as 
separate locations in the CPU. The 
registers are called by letter designa- 
tions as shown in the display, which 
lists all CPU registers in hexadecimal 
form. 

All registers are 16 bits (two bytes) 
in width, unlike memory locations 
which are organized in 8-bit (one byte) 
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widths. Before we go on, I have some 
bad news for you — you must learn 
to use hexadecimal representation to 
work with assembly language. Cheer up 
though — it isn't half bad. You know 
that sixteen bits involve a combination 
of sixteen ones and zeras. Hexadecimal 
is just a shorthand way of representing 
binary. Every four bits is converted into 
a single hexadecimal digit as follows: 


I 
o 
x 


Binary 
0000 
0001 
0010 
0011 
0100 
0101 
0110 
0111 
1000 
1001 
1010 
1011 
1100 
1101 
1110 
1111 


Use the BASIC HEX$ command to 
convert between decimal and hex for 


im UYONW>VMIAURWN-O 


practice. PRINT HEX$(10000), for 
example, prints the Hex equivalent of 
decimal 10,000 and the &H prefix 
converts the other way (PRINT &HFF34, 
for example, prints the decimal equiv- 
alent of Hex FF34). You'll also find 
conversion tables in many reference 
books. 

You'll notice from the display that 
each register is represented by four Hex 
digits, representing four groups of four 
bits. All data entered into a register or 
instruction must be in hexadecimal. To 
see how this works, try entering data 
into the AX register and watch it change. 
To enter data into any register, just type 
R followed by the register name: 


-rax 

AX 0000 
:1 ENTER 
-rax 

AX 0001 


Here we've displayed the RX register, 
observed that it contained 09000 (binary 
0000000000000000), changed the 
contents to one and then displayed the 
register again. The colon indicates that 


- Figure LER : 
Machine e Language Coding á 
à INSTRUCTION - 


Load cx with 64 i 
Load AX with 0 ` 
Add CX and AX. 


uA Cx not 0 go to Add | 


| 81001001 


| 011101901 11 1110 ea 


Symbolic Assembly Language Coding 


MOV CX,64 
MOV RX,0 
ADD RX,CX 
DEC CS 
INZ 106 


"SOURCE 
CODE" 


ASSEMBLER 
PROGRAM 


TRANSLATION 
BY 


10 11 19 91 0110 
01 00 90 00 99 90 
10 11 10 00 00 99 
00 00 90 00 00 Øl 
11 00 10 00 01 00 
10 01901 11 0101 
IO TA 


“OBJECT 
CODE” 


ASSEMBLER 


=0000 à sie 01-0000 


í o CS- 0930 1P=0100 AR DI PL NZ NA PONC 


[BAST], AL 
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Text processing power that no other program can equal. 





PCSG says ‘‘Send it back in 30 days for a full 
refund if you don't agree." 


on Snap-in™ Cartridge $149.95 


WRITE ROM is the definitive word 
processing extension for the Model 100. 
PCSG the first text formatter for the Model 
100, now sold by Radio Shack as Scripsit 
100. Now 18 months later PSCG introdu- 
ces WRITE ROM. Those who have expe- 
rienced it say WRITE ROM literally dou- 
bles the power of the Model 100. 

First of all, WRITE ROM as its name 
implies is on a snap-in ROM. You simply 
take a quarter and open the little compart- 
ment on the back of the Model 100 and 
press it in. It is as easy as an Atari game 
cartridge. You can use other ROM pro- 
grams like Lucid whenever you wish. 

WRITE ROM lets you do every format- 
ting function you would expect like setting 
margins, centering, right justifying and 
having headers and footers. But it does 
them under function key control. 

WRITE ROM remembers your favorite 
format settings so that you can print a 
document without any setup, but you can 
change any formatting or printing parame- 
ters instantly with a function key. 

WRITE ROM's “pixel mapping" feature 
shows you an instant picture on the screen 
of how your printout will look on paper. 

In all there are 64 separate features and 
functions that you can do with WRITE 
ROM, and some of these features are truly 
breakthroughs for the Model 100. 

First, WRITE ROM lets you do search 
and replace. Any word or phrase in a 
document can be searched for and 
replaced with any other phrase where the 
search words appear. 

Second, WRITE ROM lets you send any 
text (formated or not) to any other 
computer over the phone with just a 
function key. What's more it dials and 
handles sign on and sign off protocol 
automatically. 

Third, WRITE ROM has a wonderful 
feature called Library that lets you record 
favorite phrases, words or commonly used 
expressions (often called boilerplate). 


Any place you wish any Library text to 
appear you just type a code. WRITE ROM 
automatically inserts the text just like a 
Xerox Memory Writer. 

Picture what you can do with that kind 
of capability. 

WRITE ROM is blindingly fast. No one 
can claim faster operation. Because it is 
on ROM it uses virtually none of your 
precious RAM. It works with any printer, 
serial or parallel. You can make a duplicate 
copy of a document file under a new 
filename. Rename or delete (kill) any RAM 
file with function key ease. 

This description only scratches the 
surface of the amazingly powerful piece 
of software. Dot commands allow control 
of such things as margins, centering, line 
spacing and other changes in the middle 
of a document. Most are Wordstar 
compatible. 

A mail merge feature allows you to send 
the same document to every name on your 
mailing list, personalized for each 
recipient. 

WRITE ROM enables you to do under- 
lining, boldface and correspondence 
mode as well as any other font feature like 
superscripts that your printer supports in 
a way that many users say "is worth the 
price of the program." 

To underline you don't have to 
remember a complicated printer code. You 
just type CODE U, and to stop underline, 
CODE U again. The CODE key is to the 
right of your spacebar. Boldface? CODE 
B to start and stop. Easy to remember and 
do. Five different printer features of your 
choice. 

We couldn't list all the features here. For 
example, not just double space but triple 
or any other. You can use your TAB key 
in a document. WRITE ROM allows you 
to indent. This means you can have 
paragraphs that have a first line projecting 
to the left of the rest of the paragraph. 
Plus many more features. 





WRITE ROM has a feature unique to any 
word processor on any computer. It is 
called FORM. FORM is an interactive 
mechanism that lets you create screen 
prompts so that you or someone else can 
answer them to fill out forms or 
questionaires. 

With FORM anyplace where you had 
previously typed a GRAPH T and a prompt 
in a document, WRITE ROM will stop and 
you are shown that prompt on the screen. 
You can type in directly on the screen and 
when you press F8 you see the next 
prompt. Goes to a printer or a RAM file. 

Think of how you can use FORM. A 
doctor or nurse could use it for a patient's 
history with each question appearing on 
the screen. An insurance salesman could 
have his entire questionaire. You could 
construct a series of prompts to answer 
correspondence typing the answers, even 
using Library codes. This feature lets you 
answer letters in rapid fire fashion each 
with personalized or standard responses. 

Before WRITE ROM you had to be a 
programmer to create a series of prompts. 
Now its as simple as GRAPH T. 

PCSG makes the claim that WRITE ROM 
is the easiest, fastest and most feature rich 
formatter for the Model 100. We are happy 
to offer WRITE ROM because it expands 
the 100 to a dimension of text processing 
you cannot equal on even larger 
computers. 

We brashly state that WRITE ROM is the 
best you can buy. But put that to the test. 
If you aren't as excited as we are return 
it for a full refund. Priced at $149.95 on 
snap-in ROM. MasterCard, VISA, Ameri- 
can Express and COD. 


1-214-351-0564 





RORTABLE GOMRUTER SURORT ORQUP 


11035 Harry Hines Blvd., #207, Dallas, Texas 75229 + 1(214) 351-0564 


PCSG provides hotline software support for the Model 100. Call us at 1-214-351-0564 








Hex data can be entered to change the 
register; if you want to leave the register 
as is, just press ENTER. 

The AX, BX, CX and DX registers are 
used as “working registers." They hold 
the instruction-by-instruction results of 
operations such as adds, subtracts, 
multiplies, shifts, ands and ors. 

The BP, SI and DI registers are "index 
registers" used in some of the more 
esoteric addressing modes of the 8088. 

The IP register is the instruction 
pointer register. It points to the next 
byte of the instruction to be executed. 
In the display above, IP holds 9109, 
indicating that the byte of the next 
instruction to be executed is at location 
0100. This corresponds to the display 
of 0930:0100 opposite the ADD on the 
third line of the R display. Instructions 
are arranged in sequence, just like the 
statements of a BASIC program, and 
generally executed one after another 
with occasional jumps to other loca- 
tions. In case you're wondering ee 
the RDD ped RL, er å the an 


SYSTEM RAM/ 
USER RAM 


is an “unassembly” of the data that 
DEBUG found at location Ø930:Ø109. 
DEBUG decodes data into the equivalent 
8088 instructions. In this case, location 
0930:0100 holds a 0000, equivalent to 
the instruction ADD [BX*SI],RL. Since 
no instruction has been entered, the 
0000 is really just garbage that DEBUG 
has attempted to decode into something 
meaningful. 

The CS, DS, SS and ES registers are 
"segment registers." They point to a 
64K (65,535) byte block of memory 
known as a "segment." Memory in the 
8088 is divided up into 1,048,576 bytes 
of memory as shown in Figure 3. In 
PC compatible systems, only the lower 
640K bytes are used for user RAM 
memory. The remaining memory is 
used for video display memory, ROM 
memory and dedicated addresses for 
input/output devices. The memory 
addressing space is divided up into 64K 
byte segments used for the code (code 
segment), for data (data segment), for 


the stack (stack segment) and for user 
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defined functions (extra segment). The 
segment registers point to the 64K byte 
block. From the display above, you can 
see that in this case, all segment registers 
point to the same 64K byte segment — 
0930. There's no reason that the same 
segment can’t be used for instructions, 
for data and for the stack. This is often 
done, as for example, in interpretive 
BASIC, which uses a 64K segment. 


Memory Addresses 

The actual physical memory address 
referenced is made up of the segment 
address and an “offset.” The segment 
address is the upper 16 bits (four Hex 
digits) of the start of the physical block. 
In the case above, for example, 9930 
represents the physical address of 
09300 in the PC system, the start of 
the 64K block. The complete address 
is found by adding the segment address 
and the IP offset together. In this case, 
09300 plus 91900 equals 09400, the 
actual physical address of the ADD 
[BX*SI],RL “dummy” instruction. 

The form of the address 0930:0100 
indicates that the segment is at 09300 
and that the offset is 6100. You can 
simply use the offset alone within the 
same segment, and this is often done. 

The "stack" area of memory is an area 
of several dozen to several hundred 
bytes devoted to an assembly language 
stack. The stack builds downward in 
memory, as shown in Figure 4. The 
stack is used to store return addresses 
for assembly language calls (similar to 
GOSUBS in BASIC), temporary results for 
PUSH instructions, and, in more 
advanced assembly language programs, 
for interrupt addresses and data. As 
most assembly language programs will 
use subroutine CALL instructions, a 
stack is required. DEBUG sets the SP 
(stack pointer) register to an offset of 
FFEE initially, with the stack segment 
starting at 0930, the same as the other 
segments. The FFEE indicates that the 
stack starts before the 0930 start of the 
segment; we'll provide some examples 
of stack use further on in these columns. 


Assembly Language Instructions 

As we mentioned before, the 8088 has 
a built-in set of instructions that 
perform rudimentary operations. Each 
instruction has a mnemonic associated 
with it. The mnemonic is a shortened 
form of the description of the instruc- 
tion. Instead of entering "add the 
contents of the BX register to the 
contents of the AX register and store 
the result in the AX register," the text 
ADD AX, BX is used. If we wanted to enter 
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Here is what is really exciting. The port- 
able disk drive has Random Access. Included 
as part of the operating system in the drive 
(ROM) is a very powerful disk BASIC. 

This means that you can have BASIC 
programs that will access the diskette and read 
and write records directly on the diskette. 

Just imagine yourself with this kind of 
capability. 





Database — The portable disk drive stores 
your mailing list, inventory items, part #s and 
descriptions or any other data that you need 
to recall. 





358K on a diskette 





Invoice (purchase order)— At the touch of 
a button you can print out your sequentially 
numbered, professionally done invoices. This 
is truly professional invoicing capability. 

Purchase orders are just as easy. 

Sort — This excellent utility allows you 
rapid sorting of any records you have compiled. 
You can write the newly sorted list back in the 
same file on the diskette or to a new file. 

Telecom interface — If you are a user that 
likes to access other computers or databases 
(for example CompuServe) by telephone then 
this powerful facility alone is worth the price of 
the disk drive. You can automatically download 
and upload information onto the diskette. 

Calendar — Everyone who has seen this 
program has said, “This is the first calendar/ 
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this instruction, for example, we could 
simply type in that text in this sequence: 


-a 

0930:0100 ADD RX,BX 
0930:0102 MOV CX,23 
0930:0104 ENTER 


The A command after the DEBUG 
prompt tells DEBUG to assemble the 
following text into machine language 
instructions. In the example above, we 
have entered two instructions. Imme- 
diately after each, DEBUG has translated 
the text into the equivalent machine 
language code (which does not appear 
on the assembly). The first instruction 
ADD AX,BX is stored in locations 
0930:0100 and @930:0101. The 
second instruction MOV CX,23 is stored 
in locations 0930:0102 and 0930: 
0103. The ENTER terminates the assem- 
bly process and returns back to the 
DEBUG prompt. We can now use the U 
command to unassemble what we have 
just entered. The unassembly should 
match what we just entered (Example 
2). 


Note that in this case we specified 
the starting location for the unassembly 
in standard segment:offset form. We 
could also have used an offset alone: 


-u 0100 


As we had hoped, the first five bytes 
match the two instructions we had 
entered. (The remaining instructions 
reflect garbage bytes after the instruc- 
tions which were not changed.) In 
addition, the machine language bytes 
assembled for the instructions appear 
in the second column after the locations 
of the instructions. 

You can see from the unassembly that 
the ADD AX,BX in machine language 
form consists of two bytes, Ø1 and DB. 
The MOV CX , 0023 consists of three bytes 
in machine language form, B9, 23 and 
00. Note that the location counter is 
automatically incremented to point to 
the start of each new instruction. 

That's basically the assembly process 
— entering text in the A mode and 
checking the text by a U command. The 
best way to do this, by the way, is to 
do a screen dump of assembly text, 
preferably after text has been entered. 
An alternative is to do a screen dump 
after unassembly. (Use the GRRPHICS 
command in MS-DOS before loading 
DEBUG and then press ENTER-SHIFT- 
PRINT on the Tandy 1000.) 
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Entering the text and assembling it 
is the easy part. The hard part is to 
know which mnemonics to enter and 
in what order to construct a program. 
The instruction set of the 8088 can be 
divided into logical groups, and we'll 
talk about one of those groups now. 


Arithmetic Instructions 

As you might expect, there's an ADD 
and SUB to add or subtract two op- 
erands in the 8088 instruction set. 
There's also a variation on the adds, 
RDC and SBB, which perform the same 
add or subtract, but also add in a 
"carry" or "borrow." INC and DEC 
increment or decrement (add or sub- 
tract one) from the contents of a register 
or memory location. A CMP compares 
two operands. 


To see how some of these work, let's 
try a few examples. First of all, let's 
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add the numbers from one to 10. Enter 
this sequence in DEBUG: 


-a0100 

0930:0100 mov ax,Ø 
0930:0103 add ax,1 
0930:0106 add ax,2 
0930:0109 add ax,3 
Ø93Ø:Ø1ØC add ax,4 
0930:010F add ax,5 
0930:0112 add ax,6 
0930:0115 add ax,7 
0930:0118 add ax,8 
0930:011B add ax,9 
Ø93Ø:ØLLE add ax,a 
0930:0121 ENTER 


What has been entered here is a 
complete assembly language program. 
It won't win any prizes in the “1985 
Programmers Profundity" competi- 
tion, but it's not bad for a start. Note 
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that the last value to be added is a Hex 
A and not a 10, which would be Hex 
10 or decimal 16. The first instruction 
moves an immediate value of zero into 
the AX register to clear it initially. 

To execute the program we can use 
another DEBUG command, the G com- 
mand, for GO. GO is similar to the BASIC 
GOTO. It executes from a given address. 
In this case, we'd like to execute starting 
at location Ø930:0199 (or simply 9100 
within the current segment). The format 
for this is (don't enter anything yet): 


-g=0930:0100 
or simply 
-g=0100 


One question arises, however. How 
does DEBUG know when to stop exe- 
cuting instructions? Wouldn't it just 
continue, trying to execute the 0000 
byte as an ADD [BX*SI],RL instruc- 
tion? It would, and for that reason, an 
ending point must be added in the G 
command. This ending point is called 
a breakpoint, the point at which DEBUG 
regains control. Before this breakpoint, 
DEBUG has lost control. Execution is 
done solely on a microprocessor basis 
without any interaction by DEBUG. The 
breakpoint substitutes a special instruc- 
tion that returns control to DEBUG at 
the specified location. The location 
after the last instruction here is 
0930:0121, and that's where the 
breakpoint should be. The format of 
the GO with the breakpoint is: 


-g=0100 0121 


If you execute this instruction, DEBUG 
will execute the instructions starting at 
0100 and then display the registers after 
the breakpoint is reached (Example 3). 


Note that the IP is now set to 0121 
and that the current location on the 
third line of the display is 9930:0121 
with a display of the “garbage” instruc- 
tion at 0121. Looking in the AX register, 
we see 0037, a Hex number equivalent 
to decimal 55 or 1+2+3+4+5+6+7 
+8+9+10. 

Now let's try another short program. 
This time we'll add the numbers from 
one through 100 in AX and use a /oop 
to do it. Enter this code: 


-a 0100 

0930:0100 mov cx,64 
0930:0103 mov ax,0 
0930:0106 add ax,cx 
0930:0198 dec cx 
0930:0109 jnz 0106 
0930:010B ENTER 


This program introduces two new 
instructions, the DEC and JNZ. The DEC 
instruction is an arithmetic instruction 
we mentioned briefly above. It decre- 
ments one count from the contents of 
the A Register or memory location. In 
this case one is subtracted from CX. The 
JNZ is a conditional jump instruction, 
similar to a BASIC/IF/THEN statement. 
It causes a jump to the specified address 
if the count in CX is not zero, in this 
example. 


Execute the program by 
-g=0100 0108 


After the breakpoint at 0930:010B 
is reached, you'll see the display in 
Example 4. 


The AX register contains Hex 13BA, 
equivalent to 4096+ 768 + 176 * 10, or 
5050, the result of adding the numbers 
from one through 100. 


Conditional and Unconditional Jumps 

The conditional jump instruction JNZ 
above needs some further explanation, 
as does setting the flags in the 8088. 
Arithmetic and other instructions such 
as ADDs and SUBs may have negative, 
positive or zero results, along with other 
conditions produced by the arithmetic 
operation. After an arithmetic instruc- 
tion and certain other types of instruc- 
tions are executed, a set of flags are 
set to the results of the operation. Refer 
to Figure 5 to see the flags. The nine 
flags are grouped together in a register 
to make them easier to handle, but, in 
fact, they are really nine separate flags. 


The Z flag is easiest to understand. 
It is set or reset to reflect the zero or 
non-zero result of an arithmetic oper- 
ation. If 23 is subtracted from 23, for 
example, the ZF flag would be a one. 
If 23 is subtracted from 24, the ZF flag 
would be a zero. Try these two instruc- 
tions after assembling them: 


-a 0108 

0930:0100 mov ax,17 
0930:0103 sub ax,17 
0930:0103 ENTER 
-g=100 106 


After the breakpoint point is reached, 
you'll notice a string of two-letter 
mnemonics on the second line — NV 
UP DI PL ZR NA PE NC. These mnemonics 
correspond to the flags of the 8088 after 
the two instructions have been exe- 
cuted. The ZR mnemonic indicates the 
ZF flag is set and a zero result has 
occurred. Now reenter the sub ax,12, 
but change the 17 to 18. After executing 
and breakpointing again, you'll see an 
NZ in place of the ZR, indicating a non- 
zero result. 

The other flags indicate other con- 
ditions set after specific instructions 
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BYTE 1 
12 11 


15 14 13 


OVERFLOW FLAG 
DIRECTION FLAG 
INTERRUPT ENABLE FLAG 


(usually arithmetic instructions). See 
Example 5. 


Some of the flags are seldom used 
in programs, such as the parity flag or 
the auxiliary carry flag. The three most 
important flags in assembly language 
processing are probably the zero, sign 
and carry flags, in that order. We've 
discussed the zero flag above, so let's 
discuss the sign and carry flags. 

The sign flag is set on the basis of 
the sign bit in a result. Numbers in the 
8088 are either absolute or signed 
numbers. Absolute numbers have no 
sign — they are always positive. A good 
example of absolute numbers are 
numbers used to address memory. 
There are no negative memory loca- 
tions, and hence only positive values 
are used. 

Signed numbers, though, are used to 
express both negative and positive 
numbers. This type of representation is 
also called “two’s complement" nota- 
tion. In this format, numbers have a 
sign bit that is set (one) when the 
number is negative and reset (zero) 
when the number is positive. The 
format is shown in Figure 6. To see 


| Example 5 


Explanation —— 


Overflow flag — set if number too large to be held in register ` | 
Direction flag — determines directi 


Interrupt enable/disable 





0930:0109 BAOF O 


Figure 5 
8088 Flags 


10 


PARITY FLAG 
AUXILIARY CARRY FLAG 
ZERO FLAG 


SIGN FLAG 


TRAP FLAG 


the form of positive and negative 
numbers, assemble this code: 


mov ax,1 

mov bx,-1 
mov cx,1000 
mov dx,-1000 


Example 6 | 


RX,0001 


0930:0100 B8B0100 MOV 
Ø930:0103 BBFFFF MOV  BX,FFFF 
9939:01Ø6 B90010 MOV CX,1000 

MOV. DX, FOO 


If you entered this code and then 
unassembled, you'd see the display in 
Example 6. 


The second and third bytes of each 
of the machine language codes repre- 
sent the immediate data values to be 
moved into the register. They are in 
standard 8088 format, least significant 
byte followed by most significant byte, 
so we have to swap the two bytes to 
get the actual result. The first value is 
0001, the second FFFF, the third 1000 
and the fourth is FØØØ. There's no 
problem on the 0001 and 1000 values 


Sign flag — set for negative results, reset for positive results — 
Zero flag — set if result is zero, reset if not ` ARTE Et 


Auxiliary carry — represents carry out of bit position 3 
. Parity flag — count of number of one bits in result (even or od 
Carry flag — represents carry out of high-order bit. 
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on for certain string instructions — ` 


d) i 





— they appear as we would expect. 
However, the -1 and -1000 are in two's 
complement form, with the most 
significant bit set to a one for negative 
values. 

To change from a two's complement 
form to an absolute form, do this: 
Change all ones to zeros and all zeros 
to ones and add one. In the case of 
the FØØG value, for example, 
1111000000000000 becomes 0000 
111111111111. Adding one makes 
0001000000000000, which is Hex 
1000, the positive form of the number 
we had specified in the load. 

To see how the sign flag is affected, 
try the following code: 









-a 0100 

0930:0100 mov ax,17 
0930:0103 sub ax,[109] 
0930:0107 jmp 107 
0930:0109 du 23 
0930:010B ENTER 


This code introduces a few new things 
that we haven't discussed previously. 
The JMP instruction is similar to the 
one used previously, except that it is 


“Set Reset 
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Figure 6 
Signed (Two's Complement) Format 


8-BIT SIGNED NUMBERS 


7 6 5 


43 2 1 0 


S 7 MAGNITUDE BITS 


Ls SIGN BIT 0 - POSITIVE, 1 - NEGATIVE 


16-BIT SIGNED NUMBERS 


15 14 13 12 11 10 9 


S 15 MAGNITUDE BITS 


SIGN BIT 0 - POSITIVE, 1 - NEGATIVE 


an unconditional jump — it always 
jumps to location 0107, that is, to itself. 
It's like a BASIC 100 GOTO 100 and put 
in only so we can breakpoint at 0197. 
The DW mnemonic is not for an instruc- 
tion at all. It's called a *pseudo-op" as 
it's not really an opcode, but instructs 
the assembler to take some action, in 
this case putting in a constant of 23 
in memory locations 0109 and Ø1ØA. 
The DW stands for "define word" and 
generates two bytes containing what- 
ever value we've specified. 

The last strange thing is the brackets 
around the 106 value in add ,ax[ 106]. 
Why is this used? The brackets are used 
to signify a memory address rather than 
a literal value. If the brackets were not 
used in this case, the instruction would 
be an “add the value of 106 to the 
contents of the AX register." With 
brackets, it becomes an "add the 
contents of memory locations 01067 
0107 to the contents of the AX register.” 

The operand to be added, therefore, 
is stored in a memory location. This 
type of addressing mode is called 
“memory operand to register” and is 
used often. 

You can change the operand in 
0930:0109 by doing an A function in 
DEBUG for 0199 alone: 


-a 0109 
0930:0109 _ 


Try executing from 0100 and break- 
pointing at location 0107 to see the 
results on the sign flag. In the case 





above, the result in AX will be 12-23 
(or 23-35 decimal) or a value of -C (- 
12 decimal). You should see FFF4 in 
AX after the breakpoint and an NG for 
the sign flag, indicating that the result 
is negative. Try other values in the DW 
and observe the zero flag, sign flag and 
the results in AX. 

The carry flag can be illustrated by 
a similar set of code. The carry flag is 
set when there is a carry out of the high 
order bit of a result. The carry we're 
talking about here is the same type of 
carry that occurs when you add two 
decimal numbers: 


9999 
*23 


1 + 1022 


The “1” above is a carry to the next 
digit position. If the decimal operation 
could hold only four digits (values of 
0000 through 9999), we'd want to 
detect a carry to indicate that the result 
was too large, or perhaps to add to the 
next digit position for another add 
operation. The binary carry in assembly 
language is used for the same functions. 
Try assembling this code and watch the 
carry flag: 


mov ax,FFFF 
add ax,1 


You should see the carry flag set to 
a CY, reflecting the fact that there was 
acarry out of bit position 15, the highest 
order bit of the AX register. 


Another example to try is one that 
affects the overflow flag. The overflow 
flag is set when the result is too large 
to be held in eight or 16 bits as a signed 
value. For example: 


mov ax,2fff 
add ax,1 


When this code is assembled and 
breakpointed, it will show the overflow 
flag set by OV. The reason for this is 
that the value Ø7FF is the maximum 
positive signed number that can be held 
in 16 bits. (Don't forget the sign bit — 
it must be a zero.) Adding one to this 
value produces a result of 8000 which 
is equal to -32,768 in two's complement 
or signed form, not at all what we'd 
like to see. 

The flags are used all the time for 
conditional branches. We've seen an 
example of one, a conditional branch 
on the zero flag — JNZ — which 
branches if the result is non-zero and 
"falls through" if the result is zero, 
executing the instruction after the JNZ. 

Most of the other flags can also be 
tested and used in conditional jumps 
as well. In place of the JNZ, we could 
use: 


JZ Jump if result zero 

JE Jump if result equal 

JNE Jump if result not equal 

JS Jump on sign (Jump if result 
negative) 

JNS Jump on no sign (Jump if 


result positive) 
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JC Jump on carry 

JNC Jump on no carry 

JO Jump on overflow 
JNO Jump on no overflow 
JP Jump on parity even 
JO Jump on parity odd 


Compare Instructions 

We discussed compares briefly 
above. They are a special type of 
subtract which change only the flags 
and do not change operands in registers 
or memory. Compares are used in 
conjunction with a conditional jump 
such as the ones above. They are often 
used to test one operand against 
another for a “less than,” “less than or 
equal,” "greater than” or "greater than 
or equal condition.” When this is done, 
additional conditional jump instruc- 
tions are used. There are two sets of 
these, however — one for compares of 
absolute numbers and one for compares 
of signed numbers. The compares for 
absolute numbers use these conditional 
jumps: 


JB Jump if first operand less than 
(below) second 

JBE Jump if first operand less than 
or equal second 

JAE Jump if first operand greater 
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*PRINT CUSTOMIZED RECIPE WHEN YOU 


WISH. 


*BE AN AWARD-WINNING CHEF! 
MOST COMPUTER SYSTEMS SUPPORTED. 
(APPLE, IBM, COMMODORE, KAYPRO, 
ZENITH, COMPAQ, ATARI) 
(TANDY 1000, 1200, 2000HD) 
MASTER/VISA ACCEPTED 


LE COM ENTERPRISES, INC. 


P.O. Box 346 
Winfield, IL 60190 
(312) 682-0650 


Shipping & Handling — $1.50 


(dealer inquiries invited) 


36 


PCM October 1985 





than (above) or equal to 
second 

ump if first operand greater 
than second 


JR 


The compares for signed numbers use 
these conditional jumps: 


JL Jump if first operand less than 
second 

JLE Jump if first operand less than 
or equal to second 

JGE Jump if first operand greater 
than or equal to second 

JG Jump if first operand greater 


than second 


To see how these operations work, 
try assembling this code segment: 


-a100 

9930:0100 mov ax,[113] 

90930:0103 cmp ax, [115] 

0930:0107 je 10d 

0930:0199 jl 10f 

0930:010b jmp 111 

0930:010d jmp 10d 

0930:010f jmp 10f 

0930:0111 jmp 111 

0930:0113 du 10900,2000 

0930:0117 ENTER 

You can now use the multiple break- 
point feature of DEBUG to breakpoint 


$14.50 ea. 


$29.50 ea. 
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at 10d, 1Øf and 111. The first location 
is reached if the result of the compare 
is zero, the second is reached if the result 
is less than, and the third is reached 
if the result is greater than. Change the 
two operands for the compare in 
locations 113/114 and 115/116 — the 
ones in the code above are just samples 
of operands that could be put in. Also 
change the conditional jump instruc- 
tions to see the effects of both absolute 
and signed numbers. The G0 command 
for the code above is 

-g=100 10d 1Øf 111 

You'l see which breakpoint is 
reached by the contents of the IP and 
the location counter on the third line 
of the breakpoint. 


Recap 

We've covered a lot of ground in this 
lesson and you might well take the time 
between this column and the next to 
make certain that you understand 
what's been done above. However, if 
you've grasped the concepts presented 
here, you're well on your way to 
becoming an assembly language pro- 
grammer. Next month we'l expand 
upon this basic material and show you 
how to construct simple programs and 
interface them to BASIC with DEBUG. 
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USE YOUR DESKTOP COMPUTER AS A 
DISK DRIVE FOR YOUR M-100. 





Try Disk + for 30 days. If you : aren't as 
excited as we are, return it for a full refund. 


When we designed Disk + we did it out 
of necessity. We wanted a way that we 
could just connect a Model 100 to our 
desktop computer with a cable and save 
files onto the desktop's disk drive. We 
wanted it to be so simple to use it would 
be self-explanatory. 

Picture this. Disk + comes to you on a 
Snap-in ROM and a diskette for your 
desktop. You take a quarter and open the 
little compartment on the back of your 
Model 100. Then you just press the ROM 
into the socket. Disk+ appears on your 
main menu just like a built-in. 

You connect your Model 100 to your 
other computer using an RS232 cable 
(available from PCSG for $40). 

You just place the Disk+ diskette into 
the desktop's drive and turn on the com- 
puter. It powers up automatically and says 
"awaiting command" on your desktop's 
screen. Then you just put the widebar 
cursor on the Model 100 main menu on 
Disk + and press ENTER. You are shown 
your RAM files arranged just like the main 
menu. 

To save a file to your other system's 
disk drive, you just move the widebar cur- 
sor to the file you want to save and press 
ENTER. It is saved instantly with no 
further action. 

To look at the disk directory, you just 
press a function key on your Model 100. 
You see immediately the disk directory on 
your Model 100 screen, and it is arranged 
just like your Model 100's main menu. 

To load a file from the diskette to your 
Model 100, you just move the widebar 
cursor to the file and press ENTER. The 
file is transferred to your Model 100's RAM 
instantly. You can press F8 and go back to 
the main menu, and the file you loaded 
from diskette is there, ready to use. 


It is so nice to be able to keep your 
documents, programs (both BASIC and 
machine code) and Lucid spreadsheet 
files on the diskette, and bring them back 
when you need them. All files are ready 
to run or use with no changes or protocol 
Dy you 


If you hhave access to a desk- 


top computer and don’t 
have Disk + , then evidently 
we have done a poor job 
telling you about it. 


All files and programs that you load or 
save, go over and come back exactly as 
they are supposed to be because of full 
error checking. This guaranteed integrity 
is really a comfort. Disk + is wonderful in 
so many other ways. For example, you 
can do a "save all" of all your RAM files 
with just a touch of a function key. That 
group of files is saved on the diskette 
under a single filename with a .SD (for 
subdirectory) extension. Any time you 
want, you can bring back all those files at 
once, or just one or two if you like, again 
with one-button ease. 

Disk-- takes up no RAM. That's zero 
bytes either for storing the program or for 
operating overhead. 

What really excites most Disk + users 
is text file cross compatibility. Your Model 
1005s text files are usable on your desktop 
computer, and your desktop's text files 
become Model 100 text files. 

This means you can write something on 
your Model 100, and with Disk + transfer it 


TILES SERA wR ORM OOH ETT ETTIIIIILABARA A eR a TUYA na PN T e3T YE E22 1022242 


121324400960 09 99 T 1137731240494 9 904 VF FYTTTTITIZAIIIIIIIIVA ORA A4 4) 


iietanily to your Mm and start using it 
right away on your bigger computer. Or 
the way we like to work is to type in a 
document on the desktop computer and 
then transfer it to our Model 100 with 
Disk +. Then we print out the document, 
beautifully formatted, using WRITE ROM. 

Disk-- works with just about every 
micro sold, from IBM PC and its clones, to 
all Radio Shack computers (yes, all), to 
Apple Il, Kaypro, Epson and most CPM. 
Just ask us. More than likely, your comput- 
er is supported. 

Incidentally, hundreds of Model 100 
owners have gone to their Radio Shack 
stores and bought a color computer be- 
cause it is so low priced, and with Disk + 
they have an inexpensive disk drive. 

And if that weren't enough, how about 
this: Disk + also provides cross-compati- 
bility between different computers like 
IBM, Apple or the Model 4 using the Model 
100 as the intermediary device. Quite a 
feature! 

The snap-in ROM is really great be- 
cause you can use other ROMs like Lucid 
or WRITE ROM. They snap in and out as 
easily as an Atari game cartridge and you 
never lose your files in RAM. 

Anyone who ever uses Disk-- simply 
can't do without it. But so many times we 
have had new users call us and say, 
"Wow! I had no idea when I ordered it that 
Disk+ would be so fantastic. | just 
couldn't believe that | could use my 
desktop computer's disk drive with my 
Model 100 just like it is another main 
menu." 

That's why we sell Disk+ on a thirty- 
day trial. If you aren't completely satisfied, 
return it within thirty days for a full refund. 
Priced at $149.95 on Snap-in ROM. Mas- 
terCard, Visa or COD. 


RORTABLE COMPUTER SURORT ORU P 


11035 Harry Hines Blvd., #207, Dallas, Texas 75229 * 1 (214) 351-0564 
PCSG provides hotline software support tor the Model 100. Call us at 1-214-351-0564 
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MILI. Cone 100, 200 


Take your portable copilot along with 
you on your next vacation or business trip 


Portable 


Trip Companion 


By Nathaniel F. Ireland 
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nyone who has driven a trip of 
Ac moderate distance knows 

how difficult it is to drive and 
read a map. Fortunate indeed are those 
whose copilot is a skilled navigator; I 
am not so blessed. Years ago, I learned 
to sit down in the evening and make 
notes of the next day's routes and route 
changes, the start and end points, the 
approximate mileage and the general 
compass direction of each new route. 
With the help of a properly adjusted 
car compass, these notes have saved me 
countless hours of frustration and many 
wasted miles. Even my copilot found 
navigating easy. . . when she could read 
my writing. 

Using the Model 100 and PLAN- 
R.BA, the task of creating such a trip 
plan has been made much easier. In fact, 
the whole trip plan textfile can be 
created in advance of the start of the 
trip and a printed copy obtained by 
using a suitable 40-column printer. 
While traveling, the trip plan textfile 
can be viewed directly on the Model 
100 screen by a copilot. 


Creating the TPLAN.DO Textfile 
PLAN-R.BA is completely menu- 
driven and all entries are protected 
against destructive errors. Naturally, 
typing errors can still be made but these 
are easily edited in the textfile later. 
Some areas may cause confusion at 
first. On every map there is a statement 


(Nathaniel Ireland, now a retired gen- 
tleman farmer, was an engineer in the 
electronics industry for many years. In 
addition to his agricultural hobby, he 
finds time to enjoy his computers and 
do some consulting work.) 


that reads, *one inch equals approxi- 
mately xx miles." This xx figure must 
be entered when the program calls for 
MAP MILES^INCH. Note that when this 
figure is entered, the new figure replaces 
the old figure and the typed figure 
disappears. Check the new figure for 
correctness and press ENTER if it is OK. 
If it is not correct, enter the corrected 
figure as above. Each FROM:TO: route 
entry will ask you to verify this figure 
as it is apt to change from map to map. 
Press ENTER if it remains the same, 
make the change as above if it is 
different. 

The FROM: and TO: entries are 
program limited to five characters, 
VIR: entry limited to four. DIRECTION: 
is limited to one, either N,E,S or W. 

INCHES: entry refers to the length 
in inches (plus any decimal part of an 
inch) of the route actually measured on 
the map with an ordinary ruler or a 
mechanical measuring device. For 
convenience, miles (plus any decimal 
part of mile) can be entered here if the 
right-most character typed is the letter 
M. Be careful to always include the letter 
M on the right when entering in miles 
because an error will be introduced in 
the day's accumulated miles count 
without it. 


Trip Planning Suggestion 

FROM: generally refers to the point 
at which you enter upon the route you 
indicate in VIA: and TO: generally 
indicates the point at which you leave 
that route. An exception to this is where 
the route continues onto another map. 
Since the new map is likely to have a 
different miles-per-inch figure and a 
state boundary line will be indicated on 





both maps, indicate the state line as TO: 
and measure to this point. Change the 
MAP MILES^INCH to agree with the new 
map, indicate the state line for the next 
FROM: and measure from this point. 


Appending Data 

Before creating a new TPLAN.DO 
textfile, PLAN-R.BA tests for an existing 
TPLRN.DO textfile in RAM. If it finds 
one, you are given a choice of adding 
to the existing file (append) or instruc- 
tions for creating a new file. Before you 
elect to append, press M to go to the 
Model 100 menu and view the existing 
TPLAN.DO file. Note the number of the 
last day recorded. Add one to this 
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j ES Hit 
|u Lom um s 


H1O MAXFILES=L 


"DU REM v PLANER: BA: sek 


number and enter it when asked for 
STARTING DAY NUMBER when you rerun 
PLAN-R.BA. 


Program Operation Suggestion 
Should you end the program before 
completing a day and wish to complete 
that day, delete DAY #x and all the 
entries for that day from the textfile. 
Rerun PLAN-R.BA, select the append 
option and re-enter all the day data. 


Programming Note 

In lines 140 and 330, do not omit 
the space after the first quote mark 
because this space directs program flow 
back to the start of the line when there 


is no keyboard input. The last GOTO 
statement directs the program flow 
back to the start of the line with any 
keyboard input other than the charac- 
ters listed between the double quote 
marks. 


Some Abbreviations I Use 

I = Interstate Route 

F = U.S. Route 

S = State Route 

LR = Local Road 

KOA = Kampground Of America 

SL = State Line 

SPC = State Park Campground 

NPC = National Park Campground 
PCG = Private Campground D 
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YOU CHOOSE: 


Terminal Emulation Mode Crosstalk XVI Smartcom II 


Menu-driven Interface Yes Yes 
Expert/brief Command Mode Yes 

Extensive Help Facility Yes Yes 
Directory-based Autodialing 

Automatic Logon Yes Yes 
Programmable Function Keys Yes 

Multiple Modem Support Yes 


File Transfer Mode 

Error Checking Protocol Yes 
Wildcard File Transfers Yes 
File Transfer Lists 

XMODEM Protocol Support 

Mainframe Versions Available 


Command Language 
Conditional Instructions 

User Variables 

Labels 

Fast Interpreted Object Code 
Program Run 

Subroutines 

Arithmetic and String Instructions 
Debugger 


Miscellaneous 

Remote Access 

Electronic Mail 
Unattended Scheduling 
Expandable Interface 
CP/M Versions Available 


MLINK 


The choice is easy. Our MLINK Data Communications System is the most powerful and 
flexible telecommunications software you can buy for your personal computer. And 
it's easy to use. MLINK comes complete with all of the features listed above, a clear and 
comprehensive 275-page manual, and 21 applications scripts which show you how 
our unique script language satisfies the most demanding requirements. 


Choose the best. Choose MLINK. 


























i Corporate Microsystems, Inc. Introductory offer - we pay shipping! i 
! P.O. Box 277 Include $250.00 for each copy of MLINK. ' 
8 Etna, NH 03750 Outside North America add $15.00 (U.S.) : 
' (603) 448-5193 ' 
' — Check enclosed —— MasterCard — Visa ' 
— COD (Registered checks or money orders only) ' 
Please send me the following version(s) of MLINK: Card # Exp. ' 
Tandy Model 1000/1200 (MS-DOS) | 
Tandy Model 2000 (MS-DOS) Signature —_—>> ——_——— 4 
' Tandy Model 4 or 4P (CP/M Plus only) Ship to: 
I ———— IBM9 PC or compatible (PC-DOS) Name ! 
Send me more information UP NER 
! Other versions are also available. Å : 
, Please call for current version information. City/State/Zip i 


MLINK is a trademark of Corporate Microsystems, Inc. Crosstalk XVI is a trademark of Microstuf. Smartcom II is a trademark of Hayes Microcomputer Products. IBM is a 
registered trademark of IBM Corp. PC-DOS is a trademark of IBM Corp. MS-DOS is a trademark of Microsoft Corp. CP/M is a registered trademark of Digital Research. 


WT Telecommunicating with Randy 


Subsequent Thought 
on Graphics Hunting 


I ast time, we talked about finding 
graphics files in online data- 
bases. I'd like to say a couple of 

more things on that general subject. For 

one, I want to answer the question no 

one is asking: Why do we turn to a 

column about telecommunications to 

read an article about a “local” appli- 
cation like graphics? Well, for two 
reasons. 

I thought some of you may be like 
me — totally lacking in artistic ability. 
Ever since I've had a computer, I 
wanted to get into graphics, hoping the 
machine would be smarter than me. I 
cannot draw a straight line without a 
ruler or a circle without a compass, but 
perhaps with a graphics program, I can 
create great art for my own enjoyment 
and perhaps some practical uses. 

But, alas, talent is still required unless 
I am given a box full of pieces to paste 
together. My last hope is to find 
graphics files that I can use, and modify 
them to suit my particular require- 
ments. If this sounds like your lament, 
too, you may be willing to search online 
as I have for usable pretty pictures. 

My other thought was in the category 
of "reinventing the wheel." Creating 
good graphics, like programming, can 


(Randy Graham is a rehabilitation 
counselor working with the handi- 
capped. Personal computing is his 
hobby; telecommunications, one of his 
favorite activities. He has done free- 
lance information retrieval and is an 
inveterate user of the major online 
systems.) 


be a tedious process. Perhaps you can 
do it but do not have the time. Perhaps 
someone has already done the work and 
will share it with you, or maybe you 
have done the work and do not want 
to simply put it on the shelf. 

I am still amazed at the small 
proportion of computer users who take 
advantage of the telecommunicating 
power of their equipment. I keep 
looking for examples to enlarge your 
horizons and persuade you to take the 
plunge. 


Another Kind of Graphics 

Last month we talked mostly about 
Hi-Res screen graphics, just noting that 
with a screen dump program you can 
print them out for reproduction. Let's 
say another word about print graphics 
— pictures, illustrations, charts, graphs, 
maps, etc. Again, this is a largely “local” 
activity and the print utility must be 
specific to the computer and the printer. 
With a little luck and successful 
searching, you may find files online that 
can be used. 


Print graphics have one general 
characteristic — they run slowly. 
Remember how the graphics programs 
read or write to the screen display area 
of memory? The simplest and crudest 
just use a pixel set/reset approach, so 
that shades of gray depend on density 
of dots. More sophisticated programs 
include data on brightness of the pixel 
or even its color. These pixels are set 
in horizontal rows as the CRT scans 
each line. In print graphics, the image 


By Randy Graham 
PCM Contributing Editor 


is generated by the column of wires in 
the dot-matrix printhead, and the 
printer wants to print seven, eight or 
nine rows at a time as it moves across 
the page. The utility must, therefore, 
set up an appropriate-sized array, read 
each element of that array, digitize it 
and send it to the printer to set or reset 
the print wires. 


The effect of this cumbersome pro- 
cess is that there is a noticeable pause 
between the printing of each row of a 
picture. For online use, this makes it 
important that you download the file, 
save it, get offline and do your printing. 
Otherwise, you will pay for a lot of 
connect time while waiting for the 
printer to sort things out. 


And Another Kind of Analog 

Last month (one more time), to 
introduce the subject of graphics, I 
talked a little about the digitizing 
process. This works fine for pictures 
that are generated for screen or printer 
display. There is another artistic 
application that converts continuously 
variable values to digital form for 
manipulation and storage — music. 
Most computers can "sing" and pro- 
grammers have produced utilities that 
convert notes to sound. The best of 
them have very good quality, but let's 
face it, it always sounds like the 
synthesized music it is. 

My calculus teacher finally per- 
suaded me that a curve is a series of 
discrete points where the increment of 
change is so small it is perceived as 
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continuous. But, when the variables are 
read and the values are digitized, 
memory requirements get to be hor- 
rendous. Å compromise is to sample 
the curve in time, producing a series 
of steps. 

In graphics, a curve becomes a 
staircase when the time between sam- 
ples is large enough so the file will fit 
into available memory. In computer 
music, this staircase affects all aspects 
of the music's quality and makes it 
sound "electronic." 

Nevertheless, for us unartistic types, 
it is a way to make our equipment 
"sing." Again, doing your own can be 
atime-consuming process; you may like 
to sample the results of others” work 
in online libraries. Like graphics, such 
libraries usually have the necessary 
utility available. Give them a listen. Just 
make sure the music program runs on 
your machine. 


News off the Wire 

While you and I were off on vacation, 
dangling our toes in the creek or 
whatever, the information services were 
busy trying to become more user 
friendly. They are facing up to the 
problems of the occasional user. The 





professional who logs on every day soon 
becomes so familiar with a system's 
protocols that he/she almost never has 
to consult a manual. When you just 
check in from time to time, little 
differences can cause a lot of frustration 
and wasted time. They have heard us 
and they are trying to help. 

Dow Jones has implemented a new, 
simpler menu and charge system that 
is much easier to understand. Compu- 
Serve has improved its "navigating” 
process, so that, among other things, 
it *talks” to you more naturally and 
"understands" an easier-to-learn com- 
mand structure. 

Perhaps the most ambitious get- 
acquainted program is The Source's 
new TUTOR program. It is a well- 
written introduction to their services 
and it is free to all members — you 
are not charged for connect time while 
running TUTOR. I tried it out and 
found it easy to use and informative. 
I recommend it highly to those who 
want to learn to use information 
services. 

I am sorry I did not hear in time to 
tell you about Delphi's special free 
membership offer during the month of 
July. Delphi is still a good deal, and 


Plot Against Your Competition! 
with QuickPlot® 








the promotion was to get the attention 
of Tandy owners. They have started a 
Tandy users” SIG; one section supports 
the 1000, 1200HD, 2000 and 6000. This 
is the first such SIG I have run across. 
There is another section for portables, 
but then *PoCophiles" already have our 
SIGs on CompuServe and The Source. 

The quickest way to get more infor- 
mation about signing up for Delphi is 
to call them at 1-800-544-4005. Tell 
them you just read about their free offer 
in PCM and want to sign up. I don't 
think it will work, but what have you 
got to lose? 


On to Princeton 

As you read this sometime after 
Labor Day, there is time to sign up for 
the PCMfest in Princeton, N.J., Oct. 11- 
13. Get those tickets and reservations 
(see the ad in this issue). If you hurry, 
there may still be time to get a super- 
saver air fare. I attended RAINBOW- 
fest at the Princeton Hyatt last year and 
can testify that it is a fabulous place 
for an interesting and exciting show. 
Let's all get together for our first annual 
PCM family reunion. Be on the lookout 
for my name tag — I will enjoy meeting 
you face to face! [PCM] 






We're the people who gave the CGP- 
115 Color Plotter business status. 
With QuickPlot, your Model 100, or 
Tandy 200, produces high quality 
line-, bar- and pie-charts in vivid 
color. Simple data entry and flexible 
chart formatting makes QuickPlot 
and the CGP-115 Color Plotter the 
logical choice for the professional 
who wants to plot his profits—not 
spend them. 
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STILL ONLY 


$49.00 


We pay shipping 
on pre-paid orders 


Now you have a friend in the software business. 


Computer Solutions Co. 
P.O. Box 24383 
Louisville, KY 40224-0383 
(502) 245-0232 

Call or write to place your order or send for tree 
information. 


Complete QuickPlot Package 
Includes: Bar Chart, Pie Chart 
and Line Graph. Data and chart 
formats save to disk or tape for 
future plotting. 
























Model 100, Tandy 200 and CGP-115 are 
registered trademarks of Tandy Corporation. 
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EE Feature 2000 


This menu utility makes BASIC 


programming easier 


A VERY 
BASIC 
MENU 


By Cecil M. Goeldner 


new programs and enhancing old 

ones. Often, however, my time is 
broken up in short increments for such 
minor things as getting some sleep, 
going to work, being called to dinner 
and other miscellaneous interruptions. 
Operating in this mode, I soon became 
acutely aware of the need for a method 
to quickly pick up the scent from 
previous sessions. In true programmer 
fashion, I responded to this requirement 
by writing a program. I call it My BASIC 
Menu and have included several func- 
tions that I find quite useful and real 
time-savers. 

As I developed this program I 
decided the first priority would be to 
assign my own values to the soft keys. 
I felt the initial values I got each time 
I brought up BASIC were just not 
functionally productive and so I 
changed them to better suit my needs. 

Referring to the program listing, lines 
100-112 contain the entries I now use 
for this purpose. Preliminary steps are 


¡EX a lot of time in BASIC writing 





(Cecil is a senior systems programmer 
for a large Michigan bank and has been 
actively involved in computer program- 
ming at all levels for more than 20 
years.) 





taken in Line 100 to clear all variables, 
clear the screen, set the screen width 
and turn on the soft key display on Line 
25 at the bottom of the screen. Now 
I don't usually leave this soft key display 
on during an entire session, but I do 
prefer it on initially as a reminder of 
the current functions, especially since 
I tend to change them from time to time 
as I endeavor to improve their useful- 
ness. Besides, it's always fun to try 
something new. 

So far, my favorite soft key settings 
seem to center around the LIST com- 
mand, and, in this case, I have given 
each key from FI through F9, a unique 
line number range. 

Since most of my programs are small, 
and I like to code complete routines 
using line number ranges from n00 to 
n99, a listing scheme like this just 
naturally follows; however, larger 
ranges could be specified if desired. If 
I am working in the middle of a routine 
and have a question about another 
segment of the program, I just press 
the soft key corresponding to the line 
number range containing the program 
segment in question, and it is imme- 
diately displayed. Because I generally 
code routines in small, easy to handle 
segments, they will usually fit on the 


screen without scrolling over. 

It is fairly easy to remember the range 
of numbers for most routines as they 
are developed. As you can see in lines 
101 through 109, I use the key number 
as the high order digit and just tack 
on two more digits for the range. Thus, 
soft key Fi will list program lines | 
through 199, F2 will list lines 200 
through 299 and so on up through F8 
which will correspondingly list line 
numbers 800 through 899. Notice that 
I include the CHR$(13) on the end of 
the string value settings for each of the 
keys F1 through F8. This is the carriage 
return code, and without it I would have 
to press the enter key each time 
following the soft key in order to get 
the function performed. However, for 
the F9 key I just left it as an open LIST 
command and that way I can enter the 
range manually or just press the enter 
key to list the entire program. 

Soft key F10 is set with only the single 
character CHR$(12). This is the form 
feed code and accomplishes the same 
thing as a CLS (clear screen) except that 
it leaves the cursor located at the very 
top left-hand position of the cleared 
screen, whereas the CLS leaves the 
cursor positioned one line below. Since 


I like to use the entire screen, I find 
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it useful to have the cursor situated at 
the top line of a clear screen and this 
will do it for me in one stroke. Addi- 
tionally, I like to combine the key 
functions such as F10 followed by Fs, 
which will clear the screen and list 
program segment lines 500 through 599. 

Due to screen width size, the soft key 
display at the bottom of the screen 
shows only those values for keys Fl 
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Enter NEW Program 
LOAD a Program 


a Program 


BASIC 


Display FILES A:*.* 
Display FILES A:x*.BAS 
Display FILES B:*.* 


through F10, and yet there are twelve 
soft keys. How do you see the values 
for the remaining two keys — Numbers 
11 and 12? You can toggle the display 
by pressing CTRL-T, but I don't usually 
bother. I assign functions to these two 
keys that I won't change or forget and, 
therefore, I don't need to see them. My 
unforgettable Number 11 is the RUN 
command bracketed on the left by a 


17:39:38 


Delete File from A: 
Delete File from B: 
Return to MS.DOS 


t Enter desired STEF Number 


Figure 1. Screen display showing “My BASIC Menu" and prompt awaiting user 


response. 





New Program 





Figure 2. Screen display showing the result of requesting action step 1 in response 


to initial menu prompt. 


02-23-1985 


Enter NEW Program 
a Program 
a Program 


1 ALLVTOC. BAS 2 ALLVTOCS. BAS 
6 NEW. BAS 7 PROGLIST. BAS 


My BASIC Menu 


Display FILES Ark.* 
Display FILES A:*.BAS 
Display FILES B:%.8 


3 CGPYDD.BAS 


17:08:14 


Delete File from Ar 
Delete File from B: 
Return to MS.DOS 


4 MENU. BAS 5 MENUDEMO. BAS 


L Enter desired PROG Number 





Figure 3. Screen display showing results of requesting action step 2 or 3 now 
waiting for user to select which program to LOAD or RUN. 
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CHR$(12) and on the right by the car- 
riage return CHR$(13). The CHR$(12) 
in this case does two things for me: 
First, it clears the screen before running 
the program under construction; and 
secondly, it permits the RUN command 
to continue without a bothersome 
syntax error if the cursor just happens 
to be located somewhere in the middle 
of a busy screen at the moment I decide 
to "give it a try." Otherwise, I have to 
manually clear the screen first by 
pressing CTRL-L or at least clear the line 
at the cursor location by pressing CTRL- 
E. 

This brings us to the last soft key, 
Number F12. I reserve it for the most 
important function of all, that of 
running My BASIC Menu program 
itself. There are, in fact, two methods 
of running this program which I employ 
quite frequently. One is by pressing soft 
key F12, and the second, undoubtedly 
the handiest, is to make an AUTOEXEC 
.BRT file which includes the BASIC 
command immediately followed by one 
space and the program name MENU right 
on the same line. This gets the whole 
thing started with the least amount of 
fuss and bother. I happen to use an 
AUTOEXEC.BAT file that looks some- 
thing like this: 


DRTE 
TIME 
BRSIC MENU 


What could be simpler? Every time 
Iturn on the system it will automatically 
boot up BASIC and execute My BASIC 
Menu without any intervention on my 
part, other than keying in the current 
date and time. Yes, I always enter these 
as they provide so many benefits in 
keeping track of files and things in an 
orderly fashion. I realize it may not 
always be convenient or even desirable 
to go through this exercise each time 
you turn on the system, and that is why 
I keep this RUTDEXEC . BAS file only on 
those diskettes which I intend to use 
for BASIC programming. It also comes 
in handy to review contents of other 
diskettes without leaving BASIC. This 
may not seem completely earth shaking 
now, but let us examine the various 
menu options to help bring it all in 
perspective on the Richter scale. 

When the program is executed, *My 
BASIC Menu” is displayed, followed by 
the menu options (see Figure 1). 

These menu options are for the most 
part self-explanatory, but they do 
deserve a brief explanation. I will 
describe each in turn, but in keeping 


02-23-1985 


Enter NEW Program 
Program 
Program 


ALLVTOC. BAS 
COPYDD. BAS 
DBS2DBA. BAS 
FLYAWAY. BAS 
FLYER. BAS 
MENU. BAS 


ALLVTOCS 


DRAW. BAS 
FLYAWAYO 


NEW. BAS 


» BAS 
DATABAS. BAS 


» BAS 
HAZELAB. BAS 


My BASIC Menu 


Display FILES A:*.t 
Display FILES Al t.BAS 
Display FILES Bi*.* 


BOXES. BAS 
DB8000. BAS 
EDITCOMP. BAS 
FLYAWAY1. BAS 
LOANSCHD. BAS 
PLAYER. BAS 


Return 


CBTALLY. BAS 
DBAI00. BAS 

EDITCOPY. BAS 
FLYAWAY2. BAS 
MAILFIX. BAS 
PROGL IST. BAS 


Delete File 
Delete File 


19:25:27 


from A: 
from Bs 


CGDATA. BAS 
DBADSPL Y . BAS 
EDITOR. BAS 
FLYAWAYS. BAS 
MAILLIST. BAS 
THRIFT. BAS 


with the flow of the program, I need 
to expand just a bit on the 200-290 and 
300-380 line number ranges. The menu 
itself is presented to the user at lines 
200-290. Each option display line value 
is put in the S$ string variable and the 
location where it is to be displayed on 
the screen is contained in the variables 
R% (row) and CX (column). The GOSUB 
688 for each menu segment performs 
the common screen print subroutine. 


The single GOSUB 995 performs a 
subroutine to display the current date 
and time on the screen (another good 
reason for entering actual date and time 
at startup). 

The 300 series line numbers requests 
the user to enter the desired step number 
and uses the ON . . . GOTO statement 
to pass control to the appropriate 
program segment corresponding to the 
MSN% (menu step number) which was 
entered. There are also some cosmetic 
instructions in this area; for example, 
Line 300 sets some values and issues 
a GOSUB 660 which results in the 
construction of the double line box that 
surrounds the menu name at the top 
of the screen. Similarly, Line 320 results 
in the single line box at the bottom of 
the screen used to highlight the prompt. 
Line 310 draws a horizontal line from 
the middle of the screen out toward 
both sides, which serves as a boundary 
line to visually separate the menu from 
subsequent displays resulting from 
various requested options (see Figure 
1). 


A Enter desired STEP Number 


Figure 4. Typical screen display from Menu step numbers 4, 5 or 6. 
names are shown in ascending sequence. 


My BASIC Menu 


Display FILES A1*.* 
Display FILES A:%.BAS 
Display FILES B:%.% 





Note the filespec 
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Delete 
Delete 
Return 


File from Ai 
File from Ba 


Enter NEW Program 
a Program 
a Program 


5 BASIC.EXE 
10 COMPDUPE.COM 
15 EDLIN.COM 
20 LABEL. VOL 


ALLVTOC. BAS 
CGLOGO. CMG 
COPYDD. BAS 
FC. EXE 
MENU. BAS 
PRINT.COM 
VOLID. BAT 


2 ALLVTOCS.BAS 3 ANSI.SYS 

8 CHKDSK.COM 
12 COPYDD.BAT 13 DEBUG.COM 
17 FIND.EXE 18 FORMAT.COM 
22 MENUDEMO.BAS 23 MORE.COM 
27 PROGLIST.BAS 28 RECOVER.COM 


AUTOEXEC. BAT 
COMMAND. COM 
DISKCOPY.COM 
INITDK. BAT 
MYLOGO.CMG 
SORT.EXE 


29 


30 SYS.COM 


22 Enter NUMBER of FileSpec to DELETE 





5. Screen display typical to action steps 7 or 8 showing two files (7 and 
25) already deleted and file number 22 about to be deleted when the 
enter key is pressed. 


Figure 


The listing: 
100 CLS: 
191 KEY 
102 KEY 
193; KEY 
LØS KEY 
LOS) KEY 
106 KEY 
107 KEY 
108 KEY. 
TØY KEY 
LIØ/KEY 
VIV KEY 
112 KEY 


CLEARS REY VON: WIDTH/89 

"LIST 1-199"+CHRS (13) 

"LIST 2002299" 4 CHRS(13) 

"LIST 3ØØ-399"+CHRS (13) 
"ETST/AØØ-499"4+CHRS(13) 

"LIST 5ØP-599"+CHRS(13) 

"LIST 6ØØ-699"+CHRS(13) 

"LIST 7ØØ-799"+CHRS(13) 
"LIST/890-899"-CHRS(l3) 

n LT ST Wu 

CHRS$ (12) 

CHRS (12) 4"RUN"+OHRS (13) 

"RUN /+CHRS(/34')4"MENU"+CHRS(/34)-+CHRS (13) 
62-32: S$2"My. BASIC. Menu": GOSUB 
Ctely SJEL Enter NEW Program": GOSUB 
S92"2;, LOAD å "Program"; GOSUB 
SIB RUN al Program": GOSUB 
SS-"47 Display FILES) Avs 7285 GOSUB 
$9-'"5///7;/Display/FILES VAs BAS" GOSUB 
SS-e'"6. "Display FILES BLE JA GOSUB 
SST i DEVETE File from Ai": GOSUB 
S$S="8 "Delete File from Bov GOSUB 
SOMO Return’ to MSE DOS: GOSUB 


DOS TSI OY GT SP GO SR a 


R 
X 


6005 /GOSUB 995 
699 
599 
629 
699 
699 
699 
69g 
69g 
699 


08296: 


C%=55' 
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Line 340 prompts the user for the 
desired option number and the GOSUB 
500 executes the keyboard data entry 
subroutine to obtain it. Line 340 turns 
off the soft key function display at the 
bottom of the screen. Remember, I 
mentioned earlier that I only wanted 
it on briefly as a reminder, and as soon 
as an option has been selected I have 
elected to turn it off because it soon 
becomes distracting. The last two lines 





64K Upgrades Set of 9 chips Great Bargain 


Only $14.95 


PC-XT Il 


in the 300 range are used to verify the 
MSN% (menu step number), repeating the 
prompt if necessary and branching to 
the appropriate processing point 
otherwise. 

Following the program logic sequen- 
tially, we arrive at Line 400 if MSN% 
equals one, indicating a desire to key 
in a new program. At this point, the 
screen is cleared and the words “New 
Program” are displayed centered in the 


BOXR$-—1: BOXC%=29'; BOXWS=21.1:: BOXH$—3: BLV%=2: GOSUB 669 





CLOSE: RUN 


top line. Then the disk file NEW.BAS is 
opened as output, and one record 
written to it containing the data 100 
AUTO 199,19. This file is immediately 
closed. The RUN statement causes this 
file to be executed as a BASIC program, 
whereupon the MENU program is deleted 
from memory and is replaced by the 
new one. The automatic line numbering 
feature is activated, and the user can 
begin entering statements (see Figure 
















GOSUB 690: NEXT NS 


GOSUB 6ØØ: GOSUB 995 


"NEW. BAS" 


319 FOR N%=Ø TO 8Ø STEP 2: R$—8:/ $20: SS-STRINGS(N$,95): 
329 BOXR$-—21: BOXC&-223: BOXW$-36; BOXH&-3: BLV%=L: GOSUB 669 
330 R€-22:76$-—26: SSH Enter desired STEP Number": 
340 R&H22: 08926: S$="": | GOSUB 600:  GOSUB 509: KEY OFF 
360 MSNSEKS:; "IF MSN$«Ll OR MSN%>9 OR LEN(KS)>L THEN 309 
389; ON MSNS COTO 499, 420, 430, 440, 450, 460; 570,480; 499 
400 CLS: R€—1::€$9-0; SSH"New Program" X CHRS$(13): .GOSUB 600 
41Ø OPEN "O",1, "NEW.BAS": PRINTH 1, "1ØØ AUTO 1990,19": 
420 PNMSS"A:W.BAS'"L PSWe-l: COTO: 790 
430  PNMS-'ATXIBAS"TSUUPSWE-TI UU GOTO! 700 
AAG! PNMSS ANI xU: PSW$=Ø: GOTO! 709 
459 PNMS="A:* BAS!!! PSW&=Ø: GOTO 7Ø9 
46Ø PNMS="B pes PSW3=Ø"" COTO 708 
47Ø PNMNSS" ALIEN PSW%=15" GOTO 790 
48Ø PNMS="Bi* et: PSW3=1+ GOTO 7ØØ 
CLS : CLEAR: (SYSTEM: END 
ASS" KS=TINKEYS KS-"": RKg8=R%: CK$50$: LOCATE R$,C$,1: PRINT 





PRINTERS 


New Star Gemini SG-10 Model printer. 
‘| 120 cps w/true descenders, proportional 
spacing. New model for 1985. 


We now offer IBM PC-XT compatible computer sys- 
tems. Don't settle for a Tandy 1000 or other standard 
PC until you check our systems and prices. 


Starting at $865. 


Our Great Price, Only $249.95 
dria VIDEO MONITORS 


DISC STORAGE CASE 


| Attractive, heavy duty, smoked acrylic case. 





SHIPPING: All orders under $ 


| Holds and protects up to 75 574" discs with 


six moveable, indexed dividers. 
SUPER BARGAIN ONLY $9.95 
storage box along with ten discs for only $21.95. 


10 514” discs in attractive styrene box— Only $12.95 


please add $2 regular, $5 air. All orders over $100 please add 3% regular, 8% air. California residents please add 6% sales tax. Orders outside 


the continental U.S., check with us for shipping amount; please remit U.S. funds. Software authors—contact us for exciting program marketing details. We accept MasterCard 


FREE—Send for Our Latest Product Flyer! 


and VISA. Distributed in Canada by Kelly Software. 


Lun 
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Mark Data Products 
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24001 ALICIA PKWY., 





2). To turn off AUTO, press the BREAK 
key which cancels the current line and 
returns to BASIC command level. 

As the result of requesting any of the 
menu steps two through eight, the 
corresponding lines 420 through 480 
will be executed, which establishes the 
value of the string variable PNM$. This 
value is used later as the object of a 
FILES statement, 


505 


ATT ED 


€ 
(«^ 


E 


which displays 





selected program names from the 
diskette. Menu step nine permits the 
user to exit BASIC and return to MS- 
DOS (Line 490). 

The keyboard data entry subroutine 
begins at Line 500, and upon exiting 
at Line 550 the string variable K$ 
contains the character(s) just entered. 
If K$ contains no data (null string), then 


Need a great holiday gift idea? 
Give your friends a subscription to PCM 


The Personal Computing 
Magazine For Tandy Computer Users 


| would like to send a PCM gift certificate for a one-year (12 months) 


subscription. 

To: 

Name 

Address 

City 

From: 

Name 

Address 

City 

Payment Enclosed 0 


Charge Visa DÀ MasterCard D] American Express O 


My Account# 
Signature 





"Subscriptions to PCM are $28 a year in the United States. Canadian rate U.S. $35. Surface rate to other countries 
U.S. $64; air rate U.S. $85. Kentucky residents add 5% sales tax. All subscriptions begin with the current issue. 
Please allow 5 to 6 weeks for first copy. U.S. currency only, please. in order to hold down non-editorial costs, 


we do not bill. 


promptly ends. The integer variable K% 
also contains the numeric value of K$ 
and is provided for those cases where 
the field entered is to be numeric. This 
eliminates any requirement for a 
separate numeric-only data entry 
subroutine. 

The simple common screen print 
subroutine is made up of but two lines. 
At 600 the value of C% (column location) 





The Falsoft Building 
Prospect, KY 40059 
(502) 228-4492 


State ZIP 


State ZIP 


Card Exp. Date 
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Discover a Whole 
New World of TV 
Entertainment! 


Factory 
Authorized 


Radie Shaek 


DEALER 


ATELLITE SYSTE 


User Installable! Over 100 Channels! 
Uncut Movies! Specials! Sports! 
News! Weather! Music Videos! 


U.L. 
Approved 





Now you can enjoy it all! 24-hour non-stop entertain- 
ment that you simply can't get from local TV, cable, and 
even video tape! You'll see the hottest stars, recent un- 
cut and uninterrupted movies, the ultimate in sports 
coverage—and the best part is, there are no monthly 
fees to pay. You'l see exciting family-oriented pro- 


Entire 
System 


$1699 


m Totally Automatic System With 101/2-Ft. 
Dish, Receiver and Wireless Remote Control 


m Comes With All Accessories Needed for 
Complete Do-it-Yourself Installation 


m Descrambler Ready 


Handy Wireless Remote Lets You Change 
Channels, Control Volume and Fine-Tune 





grams, plus music videos, FM broadcasts and movies 
with provision for stereo, and 24-hour news coverage 
on both TV and radio. It all adds up to out-of-this-world 
TV viewing at a down-to-earth price. Come in today and 
discover how easy it is to enjoy satellite programming! 
Includes complete installation manual. 


(817) 825-4027 


NOCONA ELECTRONICS 


| UPS Shipping 


Box593 * 


Nocona, TX 76255 


A RADIO SHACK DEALER | 





is tested, and if found to be less than 
one, a new value is computed which 
will result in centering the display field. 
At Line 620 the string variable S$ is 
displayed on the screen at location R% 
(row) and C% (column). 

Lines 660 through 669 contain a 
unique little subroutine that I like to 
use to add a little something extra and 
to give those special screen displays that 
nice crisp, yet smooth, professional 
look. This routine draws boxes such as 
those mentioned earlier that enclose the 
menu name and the user prompt 
request. 

Line 700 is the common entry point 
for menu steps two through eight once 
the value of PNM$ has been established 
(lines 420-480). At this time the FILES 
statement is used to display the 
requested filenames from the desired 


720 A%=(CR%-1Ø)*6 + INT((CC$41)/13): 


730 FOR R%=1Ø TO CRs: 


disk drive as specified in the respective 
menu line. Then the PNF$ (program 
name filespec) array is created by taking 
the names from the FILES screen 
display. This array is sorted (lines 800- 
820) and redisplayed in ascending 
sequence (lines 840-880). At this point 
(Line 890), menu steps four, five and 
six (see Figure 4) have been completed 
and program control is returned to Line 
300 for any further selections. 

Menu steps two and three functions 
are completed at lines 900 through 930 
where the user selects from the sorted 
display, the filespec which is to be 
loaded or run (see Figure 3). These 
items are selected by keying in the 
sequence number located just to the left 
of the desired filespec rather than 
keying in the actual filespec name itself. 
Menu steps seven and eight delete 


749 FOR X%=Ø TO 5: P$-"": 

750 

760 NEXT C% 

779 

789  A$-A$-1: PNFS(A%)=PS 

790 NEXT X%: NEXT R$: IF A%<2 THEN 899 
899 FOR S%=1 TO A$-1: 

819 SWAP PNFS(S%),PNF$(S3+1): 

820 NEXT Ss: GOSUB 999 

849 

850 IF PSW%=Ø THEN LOCATE R%+1Ø,C3+2: 
860 

870 | GOSUB 995 

880 NEXT I% 


functions which are wrapped up at lines 
935 through 985. In similar fashion to 
that of options two and three, the user 
selects the number of the desired 
program filespec. The specified file is 
then deleted from the diskette, and the 
program name is blotted out from the 
display (see Figure 5). The user is then 
prompted for additional deletes which 
are subsequently handled in like 
manner. If there are none, the program 
returns to the main menu for further 
action. 

Lines 990 and 995 are both one-line 
subroutines used for partial screen clear 
and date/time displays. The last line 
number, 999, is executed when the user 
responds to a prompt by pressing only 
the ENTER key. This ends the program, 
and control is returned to BASIC 
command mode. 


DIM PNFS(A%): A%=Ø 


FOR €$-(13*X$41) TO (13*X%+12) 
IF SCREEN(R%,C%)<>32 THEN P$=P$+CHRS$(SCREEN(R%,C%)) 


IF P$="" OR PS=STRINGS(LEN(P$),32) THEN X%=5: R%=CR%: GOTO 79Ø 
IF NOT PNF$(S%)>PNFS$(S%+1) THEN 829 
S%=S%-2: IF S9«1 THEN S%=Ø 
FOR I$-1 TO A$: R$-INT((I$-1)/5): C$-(I$-(R$*5)-1)*1641 


PRINT PNF$(I$);: 
LOCATE R$4-19,C$: PRINT USING "###"; I$;: PRINT CHR$(32); PNF$(I$); 


GOTO 879 


899 ON MSN% GOTO 419, 999, 999, 399, 399, 390g, 935, 935, 499 
909 BOXR$-21: BOXC%=23: BOXW%=35: BOXH%=3: GOSUB 669 
Enter desired PROG Number": GOSUB 690: GOSUB 995 


995 R$-22: C&-26: S$-" 
919 R&-22: C$-26: S$-"": 


GOSUB 609:  GOSUB 599: 


915 IF K%<1 OR K%>A% OR LEN(K$)>2 THEN 999 


929 R%=22: C%=31: S$="Now Loading 


"+PNFS (K%)+STRINGS (29,32): 


GOSUB 995 


GOSUB 699 


925 GOSUB 660: GOSUB 995: LOCATE 22,1,1 

939 IF MSN%=2 THEN LOAD PNF$(K%) ELSE RUN PNFS$(K%) 

935 BOXR$-21: BOXC%=18: BOXW%=45: BOXH%=3: GOSUB 669 

940 R&-22: C%=21: S$=" Enter NUMBER of FileSpec to DELETE": GOSUB 60 
945 GOSUB 995: R%=22: C$-21: S$="": GOSUB 600:  GOSUB 509: GOSUB 995 
959 IF K%<1 OR K%>A% OR LEN(K$)>2 THEN 899 

955 PNF$(K%)=LEFT$(PNMS$ ,2)+PNF$(K%): S$-"Now DELETING  "4PNF$(K$) 

969 R$-22: C%=26: S$=S$+STRINGS(36-LEN(S$),32): GOSUB 69%: KILL PNF$(K%) 


965 R%=INT((K%-1)/5): C$-(K$-(R$*5)-1)*1642: R&-R$-10 
979 S$=STRINGS$(15,176): GOSUB 699 


975 R$-22: C%=21: S$=" 
989 C$-POS(C): 


GOSUB 599: 


DELETE another file ? 
GOSUB 995 


Y/N 


Hs GOSUB 699 


985 IF K$-"Y" OR K$="y" THEN 935 ELSE GOSUB 999: GOTO 399 
999 FOR R$-23 TO 9 STEP -1: C$-1: S$=STRING$(8Ø,32): GOSUB 600: NEXT R$: RETURN 


995 R&-2: C%=3: S$=DATES: GOSUB 600: C%=66: S$=TIMES: GOSUB 609: RETURN 


999 KEY OFF: LOCATE 22,1,1: END 


[PCM 
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ENTER YOUR DATA 


ADD A BAR CODE READER AND SOFTWARE 

















A portable data collec- accurate inventory features retailers, auditors 
tion system from Radio control— and it fits inside and warehouse supervi- 
Shack puts all the power your briefcase. sors need for accurate 
you need for fast and Perfect for Retailers | Product inventory and 

and Supervisors tt Bando 
From bar code readin ur Dar ode reader 
to word processing, — | (26-1183, $99.95) makes 
a Model 100 data the system faster and sim- 


pler to use than conven- 
tional inventorying 
methods, with their time- 
consuming product identi- 
fication, counting and 
keyboard data entry. 


Save Time with 
V. Scanner Technology 
Just connect the pen- 


like optical scanner into 
the Model 100's standard 


collection system 
offers all the 





QUICKLY AND EASILY 


TO RADIO SHACK'S PORTABLE MODEL 100 


bar code reader interface, 
load the cassette software 
that's included (cassette 
recorder required) and 
you're ready to begin 
high-speed data entry 
from Plessey, Universal 
Product Code and 3 of 9 
bar codes. Add our Addi- 
tional Bar Code Reader 
software (26-3846, $19.95) 
and your portable system 
can read UPC-C, Codabar 
and Interleaved 2 of 5. 


Create Your Own 
Inventory System 

You can even create 
your own inventory sys- 
tem and bar codes with 
our Bar Code Generator 
software (26-3845, $34.95), 


and print bar code labels 
tailored to your specific 
business needs on any 
Radio Shack dot-matrix 
printer. 


Computer Power to 
Finish the Job 


Finish your inventory 
with a correction-free re- 
port written on your Model 
100. You can even trans- 
mit the inventory informa- 
tion by telephone, using 
the Model 100's built-in 
phone modem. Data/Sort 
Plus software (26-3838, 
$49.95) lets you organize 
data files and update, 
merge and list information. 





Find Out More Today 
You can get a hands-on 
demonstration of our 
Model 100 and learn more 
about our portable data 
control system at Radio 
Shack Computer Centers 
and at participating Radio 
Shack stores and dealers. 


Available at over 1200 
Radio Shack Computer Centers and at 
participating Radio Shack stores and dealers. 


@ 


A DIVISION OF TANDY CORPORATION 


Prices apply at Radio Shack Computer Centers 
and at participating Radio Shack stores and 
dealers 


MI Subroutine City 
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Read disk sectors from BASIC 


Create a Small 
Disk Zapper From Three 
Easy Subroutines 


FORMAT and entered in the 
wrong disk letter? Then, after 
seeing your error, stopped the format 
just after the first track was formatted? 
How about the dreaded and unre- 
coverable "sector not found” error that 
seems to be on your original 8,000-part 
inventory disk as well as its backups? 
What do you do about these prob- 
lems? Crying always seems to make you 
feel a bit better but it usually never gets 
the data back. In the case of disk errors 
and deleted data, the only hope for 
recovery comes from a "disk zapper." 
What is a disk zapper? It is a utility 
program that allows the entire disk to 
be accessed on a sector-by-sector basis. 
For example, if the boot track on a MS- 
DOS system were accidentally. erased, 
it-could. be rebuilt by an experienced 


By Robert D. Covington H ave you ever accidentally typed 


"programmer with a disk zapper. In the 
Case of a “sector not found" error, you 
«could copy all the readable data on 


(Bob Covington has been a computer 
programmer and consultant for the past 
six years, most recently focusing his 
attention on both the Model 100 and 
the 2000. He is also a technical writer 
and editor. Bob can be contacted at 
P.O. Box 37007, St. Louis, MO 63141.) 





1000, 1200, 2000 


another disk and try to rebuild the data 
that is deleted (MS—DOS's RECOVER 
helps a lot in doing this). 

In addition to the above items, a disk 
zapper can help recover erased files, 
rebuild destroyed directories, rebuild 
FATs (file allocation tables) and help 
you learn more about a disk's 
organization. 

What does this have to do with 
subroutines, the topic of this column? 
In this month's “Subroutine City,” I will 
be describing three subroutines that 
allow reading, writing and verifying 
sectors of data on a disk in BASIC. With 
these subroutines, a small disk zapper 
can easily be written in BASIC. 


Disk Access Subroutines 

When I orginally. described. the 
machine language MS-DOS access 
subroutine (August 1985), I stated that 
it was capable of not only accessing all 
of MS-DOS’s system functions but also 
the actual BIOS. In this month's 
installment, I am going to use that 
ability to directly access the disk BIOS 
function INT 13H from BASIC. This will 
give BASIC the same disk access cap- 
ability that MS-DOS has at a system 
level. 

All three of the disk access subrou- 
tines in the program require four main 
parameters. The variable D holds the 


number of the disk drive to access. For 
example, to access drive B, D should 
contain a 1. The easiest way I have 
found to convert between the drive 
letter and its number is to subtract the 
ASCII value for the drive letter from 
65 (see Line 580 of the program). 

The variable T holds the track 
number to be accessed. Even though 
MS-DOS supports up to 1,024 tracks, 
the actual number used should be 
considerably less. On the Model 1000 
and 1200, the floppy disk drives can 
access up to 40 tracks while the floppies 
in the Model 2000 support 80 tracks. 
In the case of a 10-megabyte hard disk 
drive, up to 306 tracks (sometimes 
called cylinders) can be accessed. 

The variable H holds the head number 
or side of the disk to be accessed. Since 
a floppy disk has only two sides (I sure 
would like to see a three-sided floppy) 
obviously the number of heads is 
restricted to two (0 and 1). On a hard 
disk drive, however, multiple platters 
are used. In a standard 10-megabyte 
hard disk drive, two platters are used 
(that's four sides if I remember my 2- 
D geometry). In that case, the value in 
H ranges from zero to three. 

Lastly, the variable S holds the sector 
number to be accessed. On a standard 
MS-DOS floppy format, nine 512-byte 
sectors are present on each side of a 
disk on a certain track. In some older 
IBM formats, only eight sectors per side 
per track are used. 

In addition to the above entry 
variables, a 512-byte buffer needs to be 
set up for the source or destination of 
the disk operation. In Line 30 of the 
program, the array DT$( ) is initialized 
with 512 bytes broken up into 32 
sections of 16 bytes. If you notice, the 
array is built from the last element to 
the first (backwards). This is done to 
make sure that BASIC allocates the 
strings sequentially in memory. If the 
strings were allocated from the first to 
the last element, BASIC might possibly 
scramble the variables throughout 
memory. 

Since the data in the array DTS( ) 
must always be in sequential memory 
addresses, make sure to never modify 
the data in the string with a normal 
string function. If modifications must 
be done in the string, POKE the values 
into the array or use the MID$( )= 
statement (not function). This will keep 
BASIC from moving the string around 
during a string function evaluation. 

Once all of the above entry require- 
ments have been met, the subroutines 
at 17000, 18000 and 19000 respectively 


read, write and verify sectors of data 
on a disk. The sector read and write 
subroutines (17000 and 18000) use 
DT$( ) as a read and write buffer. The 
verify sector subroutine verifies the 
sector by attempting to read the sector 
into a dummy memory address. If the 
record can be read from the disk 
controller with no errors, the record is 
assumed to be correctly stored on disk. 
Since this entire operation is performed 
in the BIOS, no read/write buffer is 
required for this operation. 

On return from the above subrou- 
tines, E contains the error status of the 
operation. The valid error statuses with 
their associated meanings are: 


9 — No error 
1 — Bad parameter or command 
2 — Address mark not found 
4 — Sector not found 
8 — DMA overrun 

16 — CRC error 

32 — FDC failure 

64 — Seek error 

128 — Timeout error 


Demonstration Program 

Lines 40 through 999 of the program 
contain a simple disk sector viewer for 
demonstrating the read sector subrou- 
tine at Line 17000. This program 
displays the hexadecimal and ASCII 
representations of the data on any 
section of the disk. I have found this 
program to be useful for locating 
important information on the disk such 
as the boot sector, the directory sectors 
and data which was accidentally erased. 
The commands supported by this 
program are: 


t Move back one record 

| Move forward one record 
SHIFT t Move back one track 
SHIFT | Move forward one track 
HOME Move to start of disk 


N View other 256 bytes 
H Select new head 

D Select new drive 

ESC Exit to DOS 


When executed, the program first 
asks for the drive to access. The drive 
letter entered here should not contain 
anything but the actual letter (no 
colon). Next, the computer displays the 
first 256 bytes on the disk (track 0, 
sector 1, head 0). At this point, the 
arrow keys can be used to scan through 
the tracks and sectors on the disk. 
Because of the size of the screen, the 
entire 512 bytes stored in a sector 
cannot be displayed on the screen at 


one time. To view the other 256 bytes 
of data, press the ‘N’ key. 

If this program is executed on a 
standard Model 1000 or 1200, the 
variable MT needs to be changed to a 
39 in Line 25. If hard drives are to be 
accessed, this value should be changed 
to a 305. By changing the value in MT, 
the maximum track number that the 
program will attempt to read is changed 
accordingly. 

The program description table con- 
tains acomplete line-by-line description 
of the program. This should help 
anyone who wants to extend the 
capabilities of this simple disk sector 
viewer. 


Notes on the MS-DOS Access 
Subroutine 

In the last three installments of 
“Subroutine City,” the machine lan- 
guage MS-DOS access subroutine has 
been used extensively. When the sub- 
routine was originally published 
(August 1985), I stated that it is 
imperative that the machine language 
subroutine does not move around in 
memory when BASIC cleans up the 
variable allocation. To avoid this 
problem, I executed a FRE( ) instruc- 
tion in Line 10 to force BASIC to clean 
up the variables right after the machine 
language program is stored in memory. 
Since the string the machine language 
program is stored in is the first to be 
initialized, no other string should effect 
its allocation. Thus, the machine 
language program should stay in the 
same memory location no matter how 
many times BASIC cleans up the variable 
allocation. 

All this logic is great but the "proof 
is in the pudding," so to speak. Unfor- 
tunately, I had the right idea but I did 
not quite follow through with it to the 
end. If you notice in Line 20 of the 
program, the FRE( ) instruction has a 
string parameter between the parenthe- 
sis. With a string (any string), the 
FRE( ) instruction will force BASIC to 
clean up the variable allocation and 
things will work as I stated above. If 
you look at last month's installment of 
"Subroutine City", however, you will 
notice that a numeric variable X is used. 
Unfortunately, with a numeric variable, 
the FRE( ) instruction does not force 
BASIC to do any reallocation, but only 
returns what memory is available at the 
current moment. Because of this, the 
subroutines in last month's articles will 
do all sorts of nasty things if BASIC ever 
decides to clean up the variable table 
(this usually happens in large programs 
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or programs that perform alot of string Conclusion What else can these routines be used 


operations). To keep this from happen- With the subroutines presented in for other than a disk zapper? I have 
ing, change the X=FRE(X) to X=FRE- this article, a usable disk zapper can used them for converting various disk 
(BIOS$) in Line 20. be easily constructed in BASIC. The formats used on other machines to MS- 


If you look at the subroutine in the demonstration program supplied at the DOS’s format. This can be done by 
past three installments of “Subroutine beginning of the program basically has using BASIC to decode the directories 
City," you will notice that they are all a “look but do not touch" attitude. of the foreign-formatted disk and then 
designed to be incorporated into one Unless you are very familiar with the write the data to an MS-DOS formatted 
large subroutine module. I took great structure of an MS-DOS formatted disk using BASIC's file I/O statements. 
care in making sure that all the sub- disk and the disk operating system, I These routines can also be used for 
routines that used the MS-DOS access would suggest you do not add the ability designing your very own disk operating 
subroutine would be compatible with tomodifydataonadisktothe program. system in BASIC. Granted, the DOS 
each other. This allows all of the If the wrong information is stored on would be a bit slow, but wouldn't it 
subroutines to be used together in one a disk, the entire disk could be easily be fun to make a UNIX-like operating 


program. RUE system in BASIC? 
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350 ' ke Move to start of disk 
369 T-0:H20:8-1:G0TO 8ØP 


400 NA Niew other 256 bytes in record 


41Ø PEAP ON COTO 999 

459 7 ww Exit program. 

460 SYSTEM 

SOG Hr Select BE head 

510 IP D<2 THEN Her (y 0070 899 
520 CLS 


539 INPUT/Head number g: TVI Hy IF ju) OR/H77 THEN PRINT^Illegal head; number: GOT 


0:530 

SAA COTO 809 

559 " *** Select new. drive j 
560 CLS 


579 INPUT View which drive (AZZ) M4 IF 109 OR/AS2"Z/" THEN PRINT'Illegal driv 


e Letter" GOTO 579 
380 D-ASC(A9)-65:G0TO. 359 
899 ek Print new record 


810 GOSUB 17000:lIF ESO THEN CLS: PRINT" Disk error!" "END ELSE GOTO 909 
IDA *e** Print binary data in DT$(X) on/screen in hex/ascii form 
IVO CLS AD=256*P:X3=PX16 FOR REKI TO X3FLO FOR X2=1 TO/16 

920 ASSMIDS (DTS (X); X2, 124 HXS2HXSARIGHTS ("PO"+HEXS (ASC(AS) ) ) LIA Asc "TREN 


ASE ( " 


939 ASSAAS$S+AS NEXT PRINT RICHIS("00Q 4HEXS (AD), EN u 


San: HXS=""; AD-(XEL)*L6: NEXT 


949 PRINT:PRINT'Track:",T,"Sector;" 7S, 


999. END 


MEET THE WIZARD" 


Quality / Price / Performance Guaranteed 


Easy to use! $29.95 for any one package 


9.95 for each additional 
For TANDY 1000, 1200, 2000 and Compatibles 


1. UNDELETE Plus — Recover deleted files, display 
sorted directory tree, rename directories, cross 
directory file search, quick sort directory display, 
change file attributes, and more (8 programs in all). 

2. SHRED — For your Security needs. Put your 
confidential files through the Shredder and even 
the Wizard can't restore them! Confidentiality 
guaranteed. 

3. RAMDISK — Transform your spare memory into 


superfast disk(s). You specify size and number. 

4. SNAPSHOT — Instantly save and display up to 99 
text screen images. Great for debugging, Help 
screens, etc. 

5. SHERLOCK — Find lost files. Give Sherlock a clue 
(eg phrase or fragment of file contents) and files 
will be located in all directories. 


**For Okidata, Epson and compatible Printers** 

6. GRAFIX — Send graphics screen image to printer. 
You choose printout size. 

7. FONTFIX — Send control codes to printer to 
configure output mode. Easy to use mnemonics. 


WIZARD Utilities 800-622-4070 
P.O. Box 714 $3.00 ship & handling 
Sudbury, MA 01776 in Mass add 5% tax 


800-942-7317 in ILL. 





WEN BN UN RA LAS QUU S 


"Head i Hi NWiewi";PLRETURN 


EXPAND THE TANDY 20000 
TO 


896K 


OF DOS ADDRESSABLE RAM 


Includes RAMdisk Software at No Extra Cost ... 
Add 640K of External RAM Memory to TANDY 2000's* 
256K of Internal RAM Memory for a total of 896K of DOS Ad- 
dressable RAM. 

* Uses only one (1) External Memory Card Slot 

* RAMdisk Software is included with the price. 


$495.00 for a 640K bytes of External 
COST: RAM Memory Board (Includes RAMdisk 

Software) 

Call about our Trade-in Exchange option 

if you already use Tandy's 128K External 

Memory Board. 


for ordering (509) 627-5291 
and information cal: Hours 9:00-5:00 PST 
We accept Check, MO, Visa, Mastercard 


terms: add 7.3% sales tax in Wash. 
Add $3-shipping/handling, $5 foreign. 


TANDY 2000* IS A TRADEMARK OF TANDY CORPORATION 
RAMoisk is a Random-Access-Memory based disk 











ENVISICN DESIGNS 


1909 ORCHARD WAY * RICHLAND, WASHINGTON 99352 
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WILL. The Gallery 





By Wayne Sanders, Curator 


his month's gallery exhibit comes 
: to us from Harold Kemp of 
Gainsville, Fla. 

The program, CIRCLE.BRS, is an 
interesting example of using simple 
BASIC commands such as CIRCLE to 
generate some spectacular effects. As 
the program moves along, the pattern 
and colors change. 


Originally written for the Tandy 
2000, we modified CIRCLE.BRS to run 
on both the Tandy 1000 and 2000. 
Simply change the first line in the 
program to suite your particular com- 


puter. Because of the nature of the 
program though, the effect is much 
more detailed and interesting when run 
on a 2000. 


Å cash prize of $50 is on its way to 
Harold. If you have something that you 
would like to submit to the Gallery, 
send it along! Please send the program 
and/or binary dump on disk along with 
some notes on how it was created. A 
color screen dump, while not necessary, 
would help. If your work is selected, 
you just might find yourself with an 


extra 50 bucks! El 


















- The listing: 
1999 MODEL=2999 
1919 IF MODEL=2ØØØ THEN SCREEN 3:XR-1:C1-4:02-7:03-3 
1929 IF MODEL=1999 THEN CLEAR 14132768! : SCREEN 5:XR=.5:Cl=4: C2-14: (63215 
1939 CLS:KEY ON:KEY OFF 
1949 COLOR 1,1 
1959 FOR E-1 TO 3 STEP 1 
1969 FOR X-19*XR TO 199*XR STEP 2*XR 


























1299 CIRCLE (39*XR,29g*XR),Y,C2 
1219 CIRCLE (399*XR,39Q*XR) ,Y,C2 






1979 CIRCLE (2ØØ*XR,1ØØ*XR),X,C1 1229 CIRCLE (39Q*XR,l19g*XR),Y,C2 

1989 CIRCLE (499*XR,199*XR) ,X,C1 123Ø CIRCLE (2ØØ*XR,2ØØ*XR),Y,C2 ` 

1999 CIRCLE (SØØ*XR,2ØP*XR),X,C1 1249 CIRCLE (4ØØ*XR, 299*XR) , pde uet 

1199 CIRCLE (1ØØ*XR, 2ØØ*XR),X,C1 1259 NEXT Y 

1119 CIRCLE (399*XR,29*XR),X,Cl 1269 FOR Z=1Ø*XR TO 5Ø*XR STEP 18*XR _ 
.1129 CIRCLE (3ØØ*XR, 1ØØ*XR) ,X,C1 | 1279 CIRCLE (3ØØ*XR,1ØØ*XR),Z,C3 
1139 CIRCLE (3ØØ*XR,3ØØ*XR),X,C1 1289 CIRCLE (3ØØ*XR,2ØØ*XR),Z,C3 HU 
1149 CIRCLE (2ØØ*XR,2ØØ*XR),X,C1 1299 CIRCLE (39Q*XR,309*XR),2,C3 . — 
1159 CIRCLE (GØP*XR, 2ØP*XR) ,X,Cl. 13ØØ CIRCLE (2ØØ*XR,2ØØ*XR),Z,03 ` 

1169 CIRCLE (499*XR, 399*XR) ,X,C1 1319 CIRCLE (4GG*XR , 2ØP*XR) ,Z,03 

1179 CIRCLE (2ØØ*XR, 3ØØ*XR) ,X,C1 132Ø NEXT Z SER jp 
1189 NEXT X 1339 NEXT E 












1349 GOTO 1349 


teme FOR ALGAR TO R STEP. 6*XR — 
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WELT Feature 100 


This program changes the Model 100's 
built-in clock into a grandfather /cuckoo/ 
alarm clock and perpetual calendar of 


time keeping precision 


he Model 100's built-in clock is 
| a convenient feature since it can 
be accessed by BASIC programs. 
However, it uses 24-hour military time 
rather than standard 12-hour time, and 
it ignores leap years. This program 
makes the Model 100's time keeping 
ability more useful and adds an accurate 
calendar. 

Multi- Clock displays the time in 12- 
hour format with numerals almost 
seven lines tall. Multi-Clock can func- 
tion like a grandfather clock with 
chimes, a cuckoo clock complete with 
cuckoo bird and an alarm clock. It can 
also display a perpetual calendar a 
month at a time, starting with the 
current month. A help key is available 
to provide online instructions for using 
Multi-Clock's features. 

The Model 100 is a powerful com- 
puter you can take anywhere. Now you 
can take your cuckoo clock, grand- 
father clock, alarm clock and calendar 
with you in the same portable package. 

Before running Multi-Clock, follow 
the instructions in the Model 100 
owner's manual to set the internal clock 
to the correct time, day and date. Save 
files and programs on tape so you have 
at least 13,000 bytes of free memory. 


Using the Program 

When the program is run, the time, 
day, month and date are shown in 
oversized characters that can be read 


(Aileen and John Cornman live in 
Battle Ground, Wash., where they own 
and operate their own computer bus- 
iness, Structured Software Services.) 





Its About Time — 
Multi-Clock 


By Aileen and John Cornman 


from a distance. The bottom line of the 
screen indicates the purpose of each 
eight function keys, Fi through Fs. 
Pressing F7 presents a help menu from 
which you may request further infor- 
mation on any of the functions, or 
return to the clock display. Pressing F8 
will end the Multi-Clock program and 
return to the Model 100's main menu. 


Grandfather Chimes 

To activate the grandfather chimes, 
press F5. The screen clears and when 
the clock display returns, the letters 
Chme on the bottom line appear in a 
black box to indicate the chimes are 
active. To deactivate the chimes, press 
FS again and the box will disappear 
from around Chme. 

When the chimes are on, Multi- Clock 
plays different musical chimes on the 
quarter, half and three-quarter hour. 
On the hour, the chimes are followed 
by a correlating number of gongs. If 
you wish to stop the chimes once they 
have started to play, press any letter 
key or the space bar (but this will leave 
the chimes active). 


Cuckoo Clock 

To activate the cuckoo, press F6. 
Ckoo appears in a black box when the 
cuckoo is active. In cuckoo mode, the 
cuckoo pops onto the screen and sings 
as much of his song as befits the quarter, 
half and three-quarter hour. On the 
whole hour, he follows his song with 
the number of cuckoos that correspond 
to the hour. He then retires to await 
his next performance. Figure 1 is an 
illustration of the clock display when 
the cuckoo has appeared. 

To deactivate the cuckoo, press F6 


again. If you wish to leave the cuckoo 
active, but do not wish to hear his whole 
song, press any letter key or the space 
bar to stop the song at that point. 


Silent Clock 

When neither the chimes nor cuckoo 
is active, Multi-Clock keeps the time 
silently. 


Alarm Clock 

The alarm may be set to any time 
as far as 23 hours and 59 minutes in 
advance of the current time. The four 
selectable alarm sounds include chimes, 
the cuckoo song, a slow beep and a fast 
beep. 

Press FI to pick the kind of sound 
you want to hear when the alarm goes 
off. After you make the selection from 
the alarm sound menu, the clock display 
will reappear. The alarm sound is 
independent of whether the cuckoo or 
chime modes are active. 

Press F2 to set the time you want the 
alarm to go off. The set screen shows 
the alarm time that is currently set. You 
may simply press ENTER if that time 
is correct, or you may enter a new time 
in the same format as the one displayed. 
If you enter a new time, the set screen 
will be redisplayed to confirm the alarm 
setting. When you press ENTER as 
confirmation, the clock display will 
reappear and Set will be in a black box 
to indicate the alarm is set. 

Press F3 to turn the alarm off. When 
the alarm is off, Set will no longer be 
in the black box. 

To turn the alarm off while it is 
sounding, press any letter key or the 
space bar. If the alarm should happen 
to sound at a time when the cuckoo 
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or chimes are scheduled to play, the 
cuckoo or chimes will sound first, 
followed by the alarm. 


Perpetual Calendar 

Press F4 to view the calendar. The 
current month will be displayed with 
the current day highlighted as a point 
of reference (see Figure 2 for an 
illustration of the calendar display). 

You may view the previous month 
by pressing the left arrow-key or the 
next month by pressing the right-arrow 
key. You may also go backward or 
forward as many months as desired 
using the arrow keys. When you press 
the ‘C’ key, it returns to the clock 
display. 

The calendar accounts for leap years, 
and the program adjusts the Model 
100's internal date to February 29 when 
appropriate. 


Program Notes 

Since comments are omitted from the 
program listing to conserve memory, 
the following notes are provided as a 
guide to the program's operation. 


Line Routine 

Numbers Function 

10-22 Title and initialization 

30-90 Main control loop after a 
function key interrupt 

60-90 Normal main control loop 

100-106 FI: Select alarm sound 


110 Common exit point for 
function key routines 

200-238 F2: Set alarm time 

300 F3: Turn off alarm 

400-407 F4: Calendar control loop 

408-429 Display calendar of month 
CM, year CY 


Alem GEA Off 


Figure 1: Multi-Clock's time and date display, showing the menu of options and the 


singing cuckoo bird. 


to 


AERA. 
or ti tor 
clack. 


Figure 2: Multi-Clock’s perpetual calendar. The current date is high-lighted by being 


printed in a black box. 
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480-482 
490-491 
492-499 


500-502 
600-602 
700-707 


710-714 
720 


800 
2000-2100 
2200 
3000-3406 
4000-4072 
4899-4909 
4910-4970 
4980 


5010-5100 


5110 


5120 


| ked Nov 


s 
mS 


eldr Chme Hele Menu 


Print a day on calendar, 
highlight if today 

Set ND to the number of 
days in the month in CM 
Put days of week, outlines 
and prompts on the 
calendar screen. Wait for 
an arrow key or 'C' key 
F5: Turn chimes on or off 
F6: Turn cuckoo on or off 
F7: Help menu display and 
control loop 

Help screen for F1 

Help screen for F2 

Help screen for F3 

Help screen for F4 

Help screen for F5 

Help screen for F6 

Help screen for F7 

Help screen for F8 

Wait for a key; return with 
it in K$ 

F8: Return to Model 100 
main menu 

Play chime or cuckoo if on 
and the time is right 

Read a note from a DRTR 
line and play it 

Check alarm time; sound if 
on and time is right 
Display and update clock 
face 

Draw a seven-segment digit 
at X, Y; digit in ‘N’ 

Seven routines each draw a 
digit segment 

Erase a digit from the 
screen 

Ten routines each draw a 
different capital letter: A, 
D,F,J, M, N, O, S, T and 
W 


Draws left side vertical line 
for capital letters 

Draws right side vertical 
line for capital letters 


É 





Press + 
to see 


next 
month A 
on E Ton 
clock. 





5130-5292 Seventeen routines each 
draw a lowercase letter: a, 
b,c,d,6,g, hy ij], n;.0;.p, 
r, y, U, V and y 

5300-5310 Subroutines to draw seg- 
ments of lowercase letters 

10000-10010 Draw cuckoo bird on 
screen at X, Y 

11000 Chime tune DATA line 

12000 Cuckoo song DATA line 

ROM Calls 

17001 sets reverse character mode 
for printing white on black. 

17006 sets normal character mode 


for printing black on white. 


Significant Variables 

AL — Alarm sound. 1 = cuckoo song, 
2 = chimes, 3 = slow beep, 4 = 
fast beep. 

Calendar day. Starts off as the 
value of the current day of the 
month. Used by the calendar 
routine, along with CN, to deter- 
mine the day of the week that 
the first day of the month to be 
displayed falls on. 

Chime flag. When = 1, the 
chimes feature is turned on. 
Calendar Year. Last two digits 
of the year to be displayed by 
the calendar routine. 

Calendar month. Month to be 
displayed by calendar routine. 
Calendar day number. Starts off 
as the number of the current 
day of the week (DN). Used by 
the calendar routine, along with 
CD, to determine the day of the 
week that the first day of the 
month to be displayed falls on. 
Tens’ digit of the current date. 
Ones’ digit of the current date. 
Current day from Model 100 
internal clock. 

Current date from Model 100 
internal clock. 

Day number (1 through 7) of 
the current day of the week. 
Duration of a note to be 
SOUNDed. 

Value of the tens’ digit of the 
current hour. 

Value of the ones’ digit of the 
current hour. 

Old value of H1, used to tell 
when to change the tens’ digit of 
the hour on the clock face. 

Old value of H2, used to tell 
when to change the ones’ digit 
of the hour on the clock face. 
Value of the current hour. 
Interrupt flag. When = 1 means 
clock display was interrupted by 
one of the function key rou- 
tines, so clock needs to be redis- 
played in its entirety. 

Cuckoo flag. When = 1, the 
cuckoo feature is turned on. 
The minute on which the 


Di -— 
D2 E 
DAS — 


DTS — 


DU — 


H2 = 


HA = 


HB == 


HR = 


IR — 


KF — 


KT F 








cuckoo or chimes last sounded. 


value (1-5) and a ones' digit, 


which the alarm is set. 


M1  — Value of the tens’ digit of the which specifies the duration (6- ST$ — The time for which the alarm is 
current minute. 9). set, 12-hour format *hh:mm.” 
m2 — Value of the ones’ digit of the ND  — Number of days in CM, the T — Coded note and duration value 


current minute. 


month displayed by the 


read from a data line. 


MA — Old value of M1, used to tell calendar. TM$  — Current time from Model 100 
when to change the tens’ digit of NL — Day of the week (1-7) of the last internal clock. 
the minute on the clock face. day of the month being dis- TT — Number of notes to be played 


MB — Old value of M2, used to tell 
when to change the ones' digit 


played by the calendar routine. 
Used to determine the day of 


on the 1⁄4, 1⁄2, 34 or whole hour if 
the cuckoo or chimes are on. 


of the minute on the clock face. the week the first day of the x — X coordinate used to indicate 
MF — Menu flag. I = need to redisplay next month falls on if the user where to draw the cuckoo or 
menu line at bottom of the pages forward one month with oversized letters and digits on 
clock face; 0 = do not redisplay the right arrow-key. the screen. 
menu line. NTS — Net time for alarm to go off, x1 — Old value of D1, used to tell 
MN — — Value of the current minute. entered on set screen. when to change the tens' digit of 
MO — Value of the current month. om — Old value of SM on which the the date on the clock face. 
N — Value of the note to be alarm last sounded. Used to xAS — Old value of DAS, used to tell 


SOUNDed. Also used to pass the 
digit to be displayed to the 
seven-segment digit drawing rou- 
tine (as digit * 1). 


keep the alarm from sounding 
again during the same minute if 
it is turned off, then imme- 
diately reset to the same time. 


when to change the day display 
on the clock face. 

xO — Old value of MO, used to tell 
when to change the month on 


Nl  — Day of the week (1-7) of the PA  — Old value of PM indicator, used the clock face. 
first day of the month being dis- to tell when the AM/PM indica- XT — Thickness of digits (number of 
played by the calendar routine. tor should be changed on the dots thick minus one) to be dis- 
N() — Array holding the values used in clock face. played by the seven-segment 
the SOUND statement to play the PM — PM flag. When = 1, current digit drawing routine. 
chimes and cuckoo song. N(1) time is a PM time; 0 = AM. X4 — — Width of digits (number of dots 
through N(5) are note values, sas — “AM” or "PM" to qualify the wide minus one) to be displayed 
N(6) through N(9) are dura- 12-hour time in ST$. by the seven-segment digit draw- 
tion values. DATA Line 11000 is SF — Set flag. When = I, the alarm is ing routine. 
the chimes tune and DRTR Line set to go off. Y — Y coordinate used to indicate 
12000 is the cuckoo tune. Each SH — Set hour. The hour for which where to draw the cuckoo or 
item of data consists of a tens' the alarm is set. oversized letters and digits on 
digit, which specifies the note SM  — Set minute. The minute for the screen. 


The listing: 

19 '* CLOCK * 

29 '* by Structured Software Services * 

22 DEFINTA-Z:ST$-"12:00" : SA$-"PM": SH-12: 
SM=@ : OM=99 :KT=99 : AL=3:N(1)=1567:N(2)=175 
8:N(3)=1864:N(4)=2Ø92:N(5)=2348:N(6)=16: 
N(7)=32:N(8)=4Ø:N(9)=8Ø 

3Ø CLS: PA=9:XAS="":HA=99 : HB=99 :MA=99 : MB= 
99:X1=99:X0=99 :MF=1 

4Ø KEYON:ONKEYGOSUB100,209,300,400,500,6 
99,799,899 

60 GOSUBAQQQ 

79 GOSUB209Q 

80 GOSUB3ØØØ 

990 IFIR=L1THENIR=Ø:GOTO3ØELSEG6Ø 

19% KEYOFF:CLS:PRINT:PRINT"(1) Cuckoo so 
ng":PRINT"(2) Chimes":PRINT"(3) Slow bee 
p":PRINT"(4) Fast beep" 

192 PRINT:PRINT"Press number of desired 

alarm s 
194 K$=INKEYS$:IFKS=""THEN1Ø4 

196 AL=VAL(K$) : IFAL<1ORAL>4THEN19@ 

11% CLS:IR=1:FORI=1T01Ø:X$=INKEYS : NEXT:R 
ETURN 

20% KEYOFF:CLS:PRINT:PRINT"Alarm is now 

set for "STS" "ESAS 

202 PRINT: PRINT"Enter new time, or just 

press ENTER if":PRINT:LINEINPUT"setting 

is correct: ";NT$ 





DON'T MISS 


THELATEST ADVANCE 
IN MODEL 100/TANDY 200 


SOFTWARE 


X-TEL P ELECOHI UTER" 


Muse TEXT while online in TELCOM: Download letters 
and upload a reply in one terminal session 


lg Exchange .CO, .BA and .DO files with other computers, 
bulletin boards, and information utilities 


ll Standard XMODEM error-checking protocol 

Mist and Kill Files online in TELCOM 

Compatible with Telecommuter and other desktop 
communications software supporting XMODEM 


Specify Radio Shack Model 100 or Tandy 200 computer 
Price: $50 on MS-DOS diskette or cassette 


MasterCard and Visa accepted. 
Please call or write for further information. 


90 SIMPLE 


Sigea Systems, Inc. 
19 Pelham Road 
Weston, MA 02193 
(617) 647-1099 
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The 
Accessible 
Computer 
Experts 


metu: 


HARDWARE SPECIALS | ACCESSORIES 


Extended Basic w/ bk $ 39.95 || Volksmodem 1200 
64K (DEI) Memory Upg $ 49.95 RS D.C. Modem IB 
HJL Keyboard (D.E.F.2) $ 79.95 Novation J-Cat Modem 
26-3129 Coco Drive $ 275.95 || USR Password 300 

Hayes SM 300 Modem 
26-1161 Coco Drive 1 $ 179.95 USR Password 1200 
26-3127 64K Extended Coco 2 $ 179.95 || sp password 2400 
26-3124 Multi-Pac Interface $ 89.95 CoCo Switcher 
NAP Video Monitor (Grn Amber)$ 109.95 || Elephant Disks ssdd 
Video Monitor Adapters 34.95 Mach II Joystick 
Botek Ser / Par Interface 69.95 26-3030 OS-9 (64k) $ 64. 
26-3802 Model 100 24K 449.95 || Basic-09 (req. 0S-9) — $ 87. 
26-3816P BK Upgrade Model 100 $ 5595 [| pt DEP $ 34. 
26-3860 Model 200 $ 849.95 Eite Word Å $ 59. 
26-1276 DMP-105 Printer 80 cps $ 179.95 Elite Calc $ 59. 
26-1278 DWP 220 Printer $ 539.95 Color Term Plus $ 29.95 (cass) 
25-1000 Tandy 1000 2-drive $ 999.95 Deft Pascal $ 19.95 
Tandy 1000 10MB Hd $1,799.95 26-3012 Deluxe Joystick $ 34.95 


25-1011 Memory plus board $ 269.95 NEW! Dual Double Sides Drives including 
case, power supply & cable $375.95 


NEW! 26-3128 64K 
Direct Video CoCo2 $219.95 


.95 (disk) 


MSI SOFTWARE 


MSI DISKUTIL NEW 
COLOR FINANCE I| NEW 
MSI NAMEFILE 

MSI CALENDAR NEW 
MSI COLOR PAYROLL NEW 
COLOR FINANCE 4 














Call for prices and availabilty of 
i your favorite software and 
` hardware. All advertised items 
g subject to availability. Prices do 
/ not include shipping and handling. All 
of the above units are covered by our 
120 day carry-in warranty 


DELKER ELECTRONICS, INC. 
P.0. Box 897 408 C Nissan Blvd. 
Smyrna, TN 37167 


H 800-251-5008 Æ 615-459-2636 
(Tennessee) 


H 800-545-2502  M 615-254-0088 
(Tennessee) (Nashville) 


Visa, Mastercard and American Express 


TRS-80 Trademark Tandy Corporation 
Prices subject to change without notice 
Write for our FREE newsletter 


DELKER 
L..UICTRINGS 
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204 IFNT$=""THENSF=1:GOTOL1Ø 

296 C-INSTR(1,NT$,":"):IFC-QTHEN209 

208 NAS-RIGHT$(NT$,2):1FNA$-"am"THENSA$- 
"AM" : GOTO214 

219 IFNA$-"pm"THENSAS-"PM" : GOTO214 

212 IFNA$<>"AM"ANDNAS<>" PM"THEN2ØØELSESA 
$=NA$ 

214 SH=VAL(LEFT$ (NT$ ,C-1)):IFSH<1ORSH>12 
THEN2ØØ 

216 SM=VAL(MIDS(NT$,C+1,2)) : IFSM<ØORSM>5 
9THEN299 

218 ST$-"" 

2290 ST$-STS-RIGHTS(STR$ (SH) , LEN(STRS (SH) 
)-1)+" SOM 

222 IFSM<1ØTHENST$=ST$+"Ø" 


224 ST$=ST$+RIGHTS (STR$ (SM) , LEN(STRS (SM) 


7-1) 

238 GOTO2ØØ 

399 KEYOFF:SF=Ø:GOTOLLØ 

4ØØ IFMO=ØTHENRETURNELSEKEYOFF:CY=VAL(RI 
GHT$ (DT$,2)) : CM=MO: CD=D1*1Ø+D2 : CN=DN 

4Ø1 CLS:GOSUB4Ø8 

402 IFK$="C"ORKS="c"THEN11Ø 

493 IFKS$=CHRS$ (29) THEN4G6ELSECM=CM+1 : [FCM 
=13THENCM=1 : CY=CY+1 

405 CD=1:CN=NL+1: IFCN=8THENCN=1 : GOTO441E 
LSE4Ø1 

406 CM=CM-1: IFCM=PTHENCM=12: CY=CY-1 

407 GOSUB49Ø:CD=ND:CN=N1-1: I FCN=ØTHENCN= 
7:GOTOAQ1ELSEAQ1 

4Ø8 CD-CDMOD7: IFCD=ØTHENCD=7 

409 IFCD>CNTHENN1=CN+8 - CDELSEN1=CN+1-CD 
419 PRINTQ7,"";:0NCMGOTO411,412,413,414, 
415,416,417 ,418 ,419 ,429 421,422 

411 PRINT" Januar y";:GOTO423 

412 PRINT" Februar y";:GOTO423 

413 PRINT" Ma rc h";:GOTOA423 

414 PRINT" Apri l";:GOTOA23 

415 PRINT" M a y";:GOTO423 

416 PRINT" Jun e";:GOTOA23 

417 PRINT" J u 1 y";:GOT0423 

418 PRINT" Augus t";:GOTO423 

419 PRINT" m b e r";:GOTO423 
420 PRINT" be r";:GOTOA423 

421 PRINT" emb r";:G0T0423 

422 emb EV 

423 PRINT", 1 9";CY\1@;CHRS$(8);CYMOD19;S 
PACES (6) 

424 GOSUBA99:I-1:P-90:FORII-NITO]:GOSUBA 
89: I=1+1:NEXTII 

425 FORP=13ØT021ØSTEP4Ø 

426 FORII=1T07:GOSUB48Ø:I=I+1:NEXTII:NEX 
TP:NL=7 

427 IFI>NDTHEN492 

428 FORII-1TO7:IFI«-NDTHENGOSUBA80 :NL-II 
:I=I+1 

429 NEXTII:P=29Ø:G0T0427 

480 PP=P+(II-1)*3:IFCM=MOANDI=D1*1Ø+D2AN 


e 
e 
C 





DCY=VAL(RIGHTS (DTS, 2) ) THENCALL179@1 : PX-( 
PPMODAQ)*6:PY-(PPNAQ)*8: LINE(PX-3, PY) - (P 
X+15,PY+7),1,BF 

482 PRINT@PP, USING"##";1; :CALL179@6:RETU 
RN 

490 IFCM-4ORCM-60RCM-90RCM-11THENND-30:R 
ETURN 

49] IFCM<>2THENND=31 : RETURNELSEIFCYMOD4= 
ØTHENND=29 : RETURNELSEND=28 : RETURN 

492 PRINT@59,"Su Mo Tu We Th Fr Sa" 

493 FORI=57T0183STEP18:LINE(1,15)-(1,63) 
: NEXT: FORI-15TO63STEP8:LINE(57,1)-(183,I 
):NEXT 

494 PRINT"Press 4";:PRINTQ120,"to see";: 
PRINTQ16Ø, "previous"; : PRINTQ2ØØ, "month," 
; :PRINTQ24Ø, "or C for"; :PRINTQ28Ø, "clock 


495 PRINTQ112, "Press +"; :PRINTQ152,"to s 
ee"; :PRINTQ192, "next"; : PRINTQ232, "month, 
"< :PRINTG272,"0r CO for'"::PRINTQ312,"cloe 
k. We 

499 K$=INKEYS$ : IFK$="C"ORK$="c"ORK$=CHRS$ ( 
28) ORK$=CHR$ (29) THENRETURNELSE499 

509 KEYOFF:IFCF=1THENCF=ØELSEKF=Ø:CF=1 
502 GOTO11Y 

609 KEYOFF:IFKF=1THENKF=ØELSECF=Ø:KF=1 
602 GOTO119 

799 KEYOFF:CLS:PRINT"Function keys do th 
e following:" 

791 PRINT"F1: Set alarm sound F5: 
on/off." 

792 PRINT"F2: Set alarm time. F6: 
on/off." 

703 PRINT"F3: Turn alarm off. F7: 
lp." 

704 PRINT"F4: View calendar. F8: 
199 Menu." 

705 PRINT"For more help on a function, p 

ress its corresponding numeric key (not 
function key), or ENTER to return to cl 

ock."; :LINE(Ø,7)-(239,7) :LINE(Ø,39) - (239 
539) 

796 GOSUB79Ø:IFKS=CHRS$ (13) THEN11ØELSEK=V 

AL(K$) 

707 IFK<1ORK>8THEN7Ø6ELSECLS :P$="Pressin 

g F":0NKGOSUB719,729,739,749,759,769,779 
,780:G0T0799 j 

719 PRINT:PRINTP$;"l allows you to pick 
one of":PRINT:PRINT"the four kinds of so 

unds the alarm can":PRINT:PRINT"make whe 

n it goes off." 

712 PRINTQ280,"(Press any key to return 
to help menu.)"; 

714 GOSUB79Ø:RETURN 

720 PRINT:PRINTP$;"2 sets the alarm to g 
o off at the time you specify. On the cl 

ock face,'Set' is printed in a black box 
when thealarm is set.":GOTO712 

730 PRINT:PRINTP$;"3 turns the alarm off 


Chimes 


Cuckoo 


Get he 


Model 





for PC/MS-DOS™ 


Fixed/Floppy Disk-Tools for IBM PC", XT", AT", 
Tandy 1000, 1200, 2000 and other compatibles. 


Data file recovery, disk exploring, 
zapping, and MUCH more! 


Accidental deletions and disk directory problems can happen to 
anyone at anytime... a power spike, fingerprint, speck of dust, 
hardware problem, or simply typing DEL *.* in the wrong sub- 
directory can destroy critical data in a moment without warning. 
Therefore we introduce Super Utility for the PC - an easy to use 
disk utility containing many functions sorely needed in today's 
PC/MS-DOS computing environment. It's really great! 


With SU/PC you can restore damaged or deleted files using two 
different methods (one very easy, the other a bit tougher). Even 
clusters of an erased file assigned to another file can still be 
restored, unless the user has physically written over every byte of 
the original data (most applicable with word processing files). 


In addition to file repair and recovery, Super Utility provides 
sector verify, sector editing, modification of sectors in Hex or ASCII, 
ease of renaming of files and setting their attributes (lock and 
unlock files, etc.), string search, copying sectors to a file, diagnostic 
sector checking, mapping of the FAT table of a file or an entire 
drive, visual graphics pertaining to your system, and full directory 
and sub-directory editing without endless menu-hopping - all in 
one program. Want to change the name of your sub-directrory 
without copying all your files to a new one? Just retype a new name 
over the old one with SU/PC! The sector display mode displays all 
512 bytes on-screen at one time and allows you to fully explore 
your disks. SEARCH and CHANGE are nice here too! Will find any 
occurance of a byte or string on your disk. Compatible with DOS 
versions 2.0 - 3.1 on most systems. Some computers may require 
the use of PC-DOS. Color, composite, or monochrome video are 
supported. A great tool for fixed disk users as well as floppy. Also 
compatible with IOMEGA's Bernoulli Box™ storage device (soon to 
be distributed by Tandy as the Disk Cartridge System). Easily the 
most POWERFUL PC/MS-DOS disk utility available today. Please 
do not confuse the MS-DOS version of Super Utility with the 
TRS-80™ version. Super Utility for MS-DOS is NOT SU+ 
from the TRS-80 "ported over". SU/PC is a totally new 
program that fills the gaps that PC users have most need of and 
have asked us for. It's aimed at the beginner, the "office user", 
hobbiests, students of the PC, or programmers alike. 


So, why not be certain about the safety of your data (and your 
peace of mind) when you can have Super Utility/PC disk 
insurance right on hand at an unusually low price? Make your new 
computing life easier, more fun, and knowledgeable all at the same 
time. Unprotected media. 


* Introductory Offer + 


Super Utility/PC 


ony $89.95 
—POWr33O0rc- 


17060 Dallas Parkway, Suite 114 
Dallas, Tx 75248 * 214/733-4475 


Prepaid or charge card orders (only) include free UPS shipping to US addresses! Blue 
label, COD, or over-night shipping available at extra charge. Visa-MasterCard 
accepted. Canada, please add $3; airmail. Other countries add $15 for airmail. 
Foreign orders, please use Charge Cards ONLY. Checks not drawn on US banks not 
accepted. Texas residents must add appropriate sales tax! 
Requirements: IBM PC or compatible running PC/MS-DOS 2.x-3.x, minimum of 128K 
memory, and at least one disk drive. PC-DOS may be required for use. 

IBM, PC, XT, & AT are registered trademarks of International Business Machines 
Corp. MS is a reg. trademark of Microsoft. TRS-80 is a reg. trademark of Tandy Corp. 


October 1985 PCM 





63 








. When the alarm is off, 'Set' is not 
in a black box on the clock face. Wh 
en the alarm is sounding, pressing a 1 
etter or spacebar key will turn it off." 
:GOTO712 
740 PRINT: PRINTPS$;"4 shows the calendar 
for the current month. You may page bac 
kward andforward a month at a time. Toda 
y's date appears in a black box.":GOTO71 
2 
759 PRINTP$;"5 turns the chimes on or of 
f. On the clock face, 'Chme' is printed 
in a black box when the chimes are on. 
If on, chimes will sound on the 1/4," 
752 PRINT"1/2, 3/4 and whole hour. Press 
a letter or spacebar key to stop the ch 
ime.":GOTO712 
760 PRINTP$;"6 turns the cuckoo on or of 
f. On the clock face, 'Ckoo' is printed 
in a black box when the cuckoo is on." 
762 PRINT"If on, the cuckoo will come ou 
t and singon the 1/4, 1/2, 3/4 and whole 
hour. Press a letter or spacebar key 
to stop the cuckoo's song.":GOTO/12 
77Ø PRINT:PRINTP$;"7 displays the help m 
enu you":PRINT:PRINT"just saw.":GOTO712 
789 PRINT:PRINTP$;"8 returns you to the 
Model":PRINT:PRINT"19Q's main menu.":GOT 














TOLL FREE ORDER LINE 
(800) 245-6228 


s UPGRADE S see 
FOR MODEL 1200 











and IBM PC 
OUR “NEIGHBORHOOD 
COMPUTER 
ET EM PRICE “STORE” 
CARD (Ser. Par. 
Real Time Clock 35149. $759.99 
ame Port 0-384K 

each 64K installed $10. $95. 20 
Color Graphics Card 00 
(with Composite $410. $350. % 
& Light Pen Ports) EQUIVALENT 





FOR MODEL 1000 
(Exact Mate) $124. $299.2% 
$575.$1,000.% 


WARRANTY 
1 YR. ON ALL ITEMS! 


M.C. & VISA Accepted 







1/2 Height 
Low Power 











Call for Pant 
LATEST T ha 
PRICES!!! Mertztown. PA. 
(800) 19539 


PA Res Include6% Tax 


245-6228 (+ PA (215) 682-6855 
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0712 
799 K$=INKEYS$:IFK$=""THEN79ØELSERETURN 
8ØØ MENU 

2ØØØ IF(KF=ØANDCF=Ø) ORKT=MNTHENRETURN 
2092 IFMN=150RMN=3ØORMN=450RMN=ØTHENKEYO 
FF : KT=MNELSERETURN 

2094 IFKF=1THENX=146:Y=32:GOSUB1ØØØØ:RES 
TORE12ØØØELSERESTORE11ØØØ 

2Ø15 IFMN<>15THEN2Ø3Ø 

2016 IFKF-lTHEN2922 

2017 TT=4:GOSUB2Ø2Ø:GOTO21ØØ 

2929 FORI-1TOTT:GOSUB2209 : FORII-1TODU*2: 
NEXTII:K$=INKEYS$:IFK$<>""THENI=2Ø 

2Ø21 NEXTI:RETURN 

2022 TT=4:GOSUB2925 : GOTO2199 

2925 FORI-1TOTT:GOSUB2299 : KS=INKEYS : IFKS 
<>""THENI=2Ø 

2026 NEXTI :RETURN 

2Ø3Ø IFMN<>3ØTHEN2Ø45 

2931 IFKF=1THEN2Ø37 

2Ø32 TT-7:GOSUB2029 : GOTO2199 

2037 TT-9:GOSUB2925:G0TO2109 

2045 IFMN<>45THEN2Ø6Ø 

2046 IFKF=1THEN2Ø53 

2947 TT=11:GOSUB2Ø2Ø:GOTO21ØØ 

2053 TT=13 :GOSUB2925 : GOTO2199 

2069 IFKF-lTHEN2089 

2962 TT=15 :GOSUB202@: IFK$«»" "THEN2100 
2964 FORI=1TOHR: SOUND4697 , 80: FORII=1T016 
Ø:NEXTII 

2066 IFINKEYS<>""THENI=HR 

2968 NEXTI:GOTO210Q 

2089 TT-19:GOSUB2025:IFK$«»""THEN210 
2982 FORI=1TOHR:SOUND1567,16:S0UND1864, 3 
2:FORII-1TO160:NEXTII 

2084 IFINKEY$<>""THENI=HR 

2086 NEXTI 

21ØØ LINE(146,27)-(171,52),0, BF:FORI-1TO 
19 :K$=INKEYS : NEXT : KEYON : RETURN 

22ØØ READT:DU=N(TMOD1Ø) : N=N(TV1Ø) : IFN>ØT 
HENSOUNDN, DU: RETURNELSEFORI I=1TODU*1Ø:NE 
XTII : RETURN 

3ØØØ IFSF=ØORSM=OMTHENRETURN 

3902 IF(SH<>HR)OR(SM<>MN)OR(SA$="AM"ANDP 


ch ea pwa re" for the Tandy ™ 1000, 1200 and compatibles. 


* LABEL MAKER with box of 3,000 labels 
* 5 YEAR DIARY 
* GRAMARCY" the Word Game ..... 


* TAX RECORD 
POKER ODDS CALCULATOR 
BASIC Cross Reference Facility. .................... 
* BASIC PROGRAM PRINTER 
(unprotects 
* WORD LIST of the American Language ... 


All programs are supplied on diskette with printed documentation (except BASIC Printer and 
Diary) and mailed postpaid to the USA, Canada and Mexico. VISA/MasterCard accepted 
For more information call 800-NICOLAI (642-6524) or in Missouri 314-621-7618. 


* All programs bear 
The PCM 
certification seal Sak 


Tandy is a trademark of Tandy Corporation 


Robert L. Nicolai 
4038 N. Ninth Street 
St. Louis, MO 63147 





M=1 )OR ( SA$=" PM"ANDPM=Ø) THENRETURNELS EKEY 


I FSF=ØTHENOM=SM: GOTO11Ø 
ONALGOTO31ØØ, 3299, 3399, 3499 
RESTORE12999 : TT=19 : GOSUB2925 : GOTO34 


RESTORE11999 : TT=15 : GOSUB2029 : GOTO34 


BEEP: FORI-1TO1699 : NEXT : GOTO34G2 

BEEP : FORI-1TO20 : NEXT 

K$=INKEYS 

IFK$<>""THENSF=@ 

GOT03ØØ4 

TMS=TIMES : DT$=DATES : DA$-DAYS$ : IFDT$< 
>DATESORDAS<>DAYSTHEN4ØØØ 
4991 HR=VAL(LEFTS (TMS , 2) ) : MN=VAL(MIDS (TM 
$,4,2)) : IFHR=12THENPM=1 : GOT04ØØ3 
4992 IFHR>12THENHR=HR-12:PM=1ELSEPM=Ø:IF 
HR=ØTHENHR=12 
4003 H1=HR\1%:H2=HRMOD1@ : M1=MNX 14 : M2=MNM 
OD19:XT-4:XW-25:Y-2 
4994 IFH1<>HATHENIFH1=1THENLINE(@,2)-(4, 
52) ,1,BFELSELINE(@,2)-(4,52) ,Q, BF 
4098 HA=H1: IFH2<>HBTHENX=14 : N=H2+1:GOSUB 
4899:LINE(47 ,15) = (51,19) ,1,BF:LINE(47 ,35 
)-(51,39),1,BF:HB-H2 
4912 IFM1<>MATHENX=59 :N=M1+1:GOSUB4899 :M 
A=M1 


4914 IFM2<>MBTHENX=94 :N=M2+1 : GOSUB4899 : I 
FMB<>99THENOM=99 : MB=M2ELSEMB=M2 

4916 IFPM=PATHEN4Ø2Ø 

4918 IFPM=1THENCALL17ØØ1:PRINTG221,"PM"; 
:GALL17ØØ6:LINE(125,39)-(137,47) ,1, BELSE 
LINE(125,39)-(137,47) ,Ø,BF 

4Ø2Ø PA=PM:IFDAS=XASTHEN4Ø48 

4921 IFLEFT$(DT$,5)="Ø3/Øl"ANDXO=2ANDVAL 
(RIGHTS (DTS, 2) )MOD4=ØANDD1*1Ø+D2=28THEND 
ATE$="Ø2/29/"+RIGHTS (DTS , 2) : GOTO4ØØØ 
4922 LINE(126,2)-(177,25),P,BF:X=126:Y=2 
4924 IFDA$="Mon"THENDN=2 : GOSUB5Ø5Ø: X=144 
: COSUB5 23: X=162 : GOSUB522@ : GOTO4938 

4926 IFDA$-"Tue"THENDN-3 : GOSUB5999 : X=144 
:GOSUB527Ø:X=162: GOSUB517@ : GOTO4938 

4028 IFDAS="Wed"THENDN=4 : GOSUB510 : X144 
: GOSUB5179 : X=162 : GOSUB5169 : GOTO4938 

4939 IFDAS="Thu"THENDN=S : GOSUB599@:X=144 
:GOSUB519Ø:X=162 : GOSUB527Ø:GOT04Ø38 

4932 IFDA$-"Fri"THENDN-6 :GOSUB5039 : X=144 
:GOSUB525Ø:X=162 : GOSUB52ØØ: GOTO4938 

4934 GOSUB5Ø8Ø:X=144: IFDA$="Sat"THENDN=7 
:GOSUB513Ø:X=162:GOSUB526Ø:GOT04Ø38 

4Ø36 DN=1:GOSUB527Ø:X=162:GOSUB522Ø 

4938 XA$=DA$:MO=VAL(LEFTS (DT$ , 2) ) : IFMO=X 
OTHEN4Ø42ELSEX=186:LINE(X,Y)-(236,25),Ø, 
BF 

4940 ONMOGOSUB4Ø61,4Ø62,4963,4Ø64,4965,4 


THE PERFECT HOLIDAY GIFT WRAPPING 


Do yourself and your PCM fiiends a favor! Protect and 
showcase a valuable resource — each and every issue of 
PCM — with high-quality, brown-vinyl binders embossed 
with the magazine's name in gold lettering. 


DISTINCTIVE AND DURABLE 
PCM BINDERS 


YES. Please send me 


Spend more time enjoying your Tandy and less on 
frustrating searches for misplaced issues! 


These handsome binders hold a full 12 issues of PCM and 
cost just $7.50, plus $2.50 for shipping and handling. 


SAVE! Buy four or more back issues of PCM with this order 
and save $1 per issue. Use back issue form on Page 87. 


Order your PCM binders and back issues today! 


sets of binders at $7.50 each (plus $2.50 shipping and handling for each binder ordered). 


If your order is to be sent via U.S. Mail to a post office box or to another country, please add $2. Kentucky residents 


add 5 percent sales tax. 


I also want to take advantage of the special savings of $1 off the single issue cover price for back issues with the 
purchase of a binder. (An order form from a recent issue indicating the back issues you wish to receive should accompany 


this order.) 
Name 
Address 
City 
My check in the amount of 
Charge to: `D VISA O MasterCard D American Express 


Account Number 


Signature 


Mail to: Falsoft, Inc., The Falsoft Building, 9529 U.S. Highway 42, P.O. Box 385, Prospect, KY 40059. 


State ZIP 


is enclosed. (In order to hold down costs, we do not bill.) 


Expiration Date 
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966 ,4967, 4968 ,4969 ,4979,4971,4972 

4042 XO=MO:D1=VAL(MIDS (DTS ,4,1)) :D2=VAL( 

MIDS(DT$,5,1)) 

4044 XW=11:XT=3:Y=3Ø: IFD1<>X1THENX=199:L 

INE(X,Y)-(21Ø,52) ,Ø, BF: IFD1<>ØTHENN=D1+1 
:GOSUB4899 

4Ø46 X=215:LINE(X,Y)-(226,52),Ø,BF:N=D2+ 

1:GOSUB4899 :X1=D1 

4948 IFMF-QTHENRETURNELSEPRINTQ280 , "Alrm 
"; :IFSF=ØTHENPRINT"Set ";:GOT04Ø5Ø 

4049 CALL17ØØL:PRINT"Set";:CALL17ØØ6 : PRI 

NT" +;LINE(29,55)- (4763), 1,B 

4Ø5Ø PRINT"Off  Cldr ";:IFCF=ØTHENPRINT" 

Chme ";:GOTO4452 

4951 CALL17ØØ1:PRINT"Chme"; :CALL17996:PR 

INT" "::LINE(l1I9,55)2(143563), 15, B 

4052 IFKF=ØTHENPRINT"Ckoo ";:G0T04Ø54 

4053 CALL17091:PRINT"Ckoo";:CALL17996:PR 

INT" ‘2 LINE CLAD), Sd) (1795 63), 8 

4054 PRINT"Help Menu"; :MF=Ø 

4060 RETURN 

4961 GOSUB5Ø4Ø:X=2Ø4:GOSUB513Ø:X=222 

UB522%:RETURN 

4062 GOSUB5930:X-294 

UB514Ø : RETURN 

4963 GOSUB5Ø5Ø:X=2Ø4: 

UB525Ø: RETURN 

4064 GOSUB59010:X-204: 

UB525@:RETURN 

4965 GOSUB59850:X-294 

UB529%:RETURN 

4066 GOSUB5@4@ : X=294 

UB522Ø : RETURN 

4067 GOSUB5Ø4Ø:X=204: 

UB529Ø : RETURN 

4068 GOSUB5019:X-294: 

UB5189 : RETURN 

4069 GOSUB5Ø8Ø:X=2Ø4: 

UB524Ø: RETURN 

4070 GOSUB5Ø7Ø:X=2Ø4:GOSUBS15Ø:X=222: 

UB52690 : RETURN 

4971 GOSUB5Ø6Ø:X=2Ø4:GOSUB523Ø:X=222: 

UB528Ø: RETURN 

4972 GOSUB592@ : X=294 : GOSUB517@:X=222: 

UB5154 : RETURN 

4899 ONNGOTOA499Q9 ,4901,4902,4903,4904,490 

5,4906,4997,4908,4999 

4900 GOSUB498Ø:GOSUB491Ø:GOSUB492Ø:GOSUB 

4939 : GOSUB494G :GOSUB495Ø:GOSUB496Ø : RETUR 

N 

49Ø1 GOSUB498Ø:GOSUB492Ø:GOSUB493Ø: RETUR 

N 

4902 GOSUB498Ø:GOSUB491Ø:GOSUB492Ø:GOSUB 

494Ø:GOSUB495Ø : GOSUB4979 : RETURN 

4903 GOSUB498Ø:GOSUB491Ø:GOSUB492Ø:GOSUB 

4939: GOSUB494@ : GOSUBA970 : RETURN 

4904 GOSUB498@ : GOSUBA920 : GOSUBA9390 : GOSUB 

4969: GOSUB4974 : RETURN 

4995 GOSUBA4989 : GOSUB4919 : GOSUB49 39 : GOSUB 


:GOS 
:GOSUB517Ø:X=222:GOS 
GOSUB513Ø:X=222:GOS 
GOSUB524Ø:X=222:GOS 
:GOSUB513Ø:X=222:GOS 
:GOSUB527Ø:X=222:GOS 


GOSUB5210:X-222:GOS 


GOSUB527Ø:X=222: 


GOS 
GOSUB517Ø:X=222:GOS 
GOS 
GOS 


GOS 
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4940: GOSUBA960 : GOSUBA979 : RETURN 

4996 GOSUBA4989 : GOSUB4930 : GOSUBA94Q : GOSUB 
4959: GOSUB496@ : GOSUBA970 : RETURN 

4997 GOSUBA98Q : GOSUBA910 : GOSUBA920 : GOSUB 
4930: RETURN 

4998 GOSUB49ØØ : GOSUBA970 : RETURN 

4909 GOSUB49Ø4 : GOSUB4910 : RETURN 

4910 LINE(X, Y) - (X+XW, Y+XT) , 1, BF: RETURN 
4920 LINE(X+XW, Y) - (X+XW-XT, Y-XW) , 1, BF: RE 
TURN 

4930 LINE(X+XW-XT, Y+XW) - (X+XW, Y+2*XW) ,1, 
BF:RETURN 

4940 LINE(X, Y+2*XW) - (X+XW, Y+2*XW-XT) , 1,B 
F:RETURN 

4950 LINE(X,Y+XW)-(X+XT, Y+2*XW) , 1, BF: RET 
URN 

4960 LINE(X,Y)-(X+XT, Y+XW) , 1, BF: RETURN 
4970 LINE(X, Y+XW-XT\2) - (X+XW, Y-XW-XTN24X 
T),1,BF:RETURN 

4980 LINE(X,Y)-(X+XW, Y+2*XW) , 0, BF: RETURN 
5919 LINE(X,Y+6)-(X+2,Y+2Ø) ,1, BF: LINE(X+ 
12,Y+6)-(X+14,Y+2Ø) ,1, BF: LINE(X+3 , Y+12) - 
(X+11,Y+14) ,1, BF: LINE(X+6 , Y) - (X+8, Y+3) ,1 
, BF 

5012 FORI=Y+1TOY+4: LINE(X+5,1)-(X+1,1+4) 
:LINE(X+9, 1) - (X+13,1+4) : NEXT: RETURN 

5020 LINE(X, Y) - (X+9 , Y+2) , L, BF: LINE(X, Y+1 
8) - (X+9,Y+2Ø) ,1, BF: LINE(X+3 , Y+3) - (X45, Y+ 
17) ,1,BF: LINE(X+12 , Y+4) - (X+14, Y+16) , 1, BF 
5022 FORI=XTOX+3 : LINE(1+8,Y) - (1+11,Y+3): 
LINE (1+8 , Y+2Ø) - (I+11,Y+17) : NEXT: RETURN 
5039 GOSUB5119: LINE(X+3, Y) - (X+14, Y+2) ,1, 
BF: LINE(X+3 , Y+9) - (X+11,Y+11),1,BF:RETURN 
5949 LINE(X+6, Y) -(X+14,Y+2) ,1, BF: LINE(X+ 
9, Y+3) - (X+11,Y+16) ,1,BF:LINE(X, Y+12) - (X+ 
2,Y+16),1,BF:LINE(X+5 , Y+18) - (X+6 , Y+18) 
5042 FORI=XTOX+3 : LINE(I , Y+17) - (1+3 , Y+29) 
: LINE (1+5 , Y+2Q) - (I+8 , Y+17) : NEXT: RETURN 
50590 GOSUB5110:GOSUB5120: FORI=Y+1TOY+4:L 
INE(X+3,1)-(X+7,1+4) : LINE (X+11,1)-(X+7,1I 
+4) : NEXT : RETURN 

5Ø6Ø GOSUB5119:GOSUB5120: FORI=YTOY+3: LIN 
E(X+2,1) - (X+12,1+17) : NEXT: RETURN 

5879 LINE(X, Y+4) - (X+2,Y+16),1,BF: LINE(X+ 
12 ,Y+4) - (X+14,Y+16),1,BF 

5071 LINE(X+5, Y) - (X+9,Y+2),1,BF:LINE(X+5 
,Y+18) - (X+9,Y+2Ø) ,1,BF 

5072 FORI=XTOX+3: LINE(1, Y+3) -(1+3,Y):LIN 
E(1, Y+17) - (1+3 , Y+2Ø) : NEXT: GOTO5922 

5989 LINE(X, Y+4) - (X+2,Y+7) ,1,BF: LINE(X+1 
2,Y+4) - (X+14, Y+5) ,1, BF: LINE(X+5, Y+9) - (X+ 
9,Y+11), L,BF:LINE(X+12, Y+13) - (X+14, Y+16 ) 
,1, BF: LINE(X, Y+15) - (X+2,Y+16) ,1,BF 

5082 FORI=XTOX+3:LINE(I,Y+8)-(14+3,Y+11): 
LINE(1+8,Y+9) - (I+11 , Y+12) : NEXT: GOTO5Ø71 
5090 LINE(X, Y) - (X4+14, Y+2) ,1, BF: LINE(X+6, 
Y+3) - (X+8 , Y+2Ø) ,1, BF: RETURN 

5109 GOSUB5119:GOSUB512@: FORI=Y+16TOY+19 
: LINE(X+3 , L) - (X+7, 1-4) : LINE(X+11, 1) - (X+7 





, 1-4) : NEXT : RETURN 

511Ø LINE(X,Y)-(X+2,Y+2Ø) ,1, BF: RETURN 
5120 LINE(X+12, Y) - (X4+14, Y+2Ø) ,1, BF: RETUR 
N 

5130 GOSUB53ØØ:GOSUBS3Ø1:GOSUB53Ø2 : GOSUB 
53Ø4 :GOSUB53Ø9 : LINE(X, Y+15) - (X+2,Y+17),1 
, BF: GOSUB53@7 : GOSUB53Ø6 

5132 YY=Y: Y=Y+6 : GOSUB5395 : Y=YY: RETURN 
5140 GOSUB511%: GOSUB5394 : GOSUB53%6 : GOSUB 
5308 : LINE(X+6 , Y+6) - (X+11, Y+8) ,1, BF: LINE( 
X+6 , Y+18) - (X+11,Y+29) ,1,BF 

5142 XX=X:X=X+3 : GOSUB53@5 : GOSUB53@7 : X=XX 
: YY=Y : Y=Y+3 : GOSUB53@5 : Y=YY-3 : GOSUB53@7:Y 
=YY : RETURN 

515% GOSUB523@: LINE(X+12 , Y+12) - (X+14, Y+1 
4) ,Ø, BF: RETURN 

5160 GOSUB512Ø:GOSUB53Ø3:GOSUB53Ø5:GOSUB 
53487: LINE(X+3 , Y+6) - (X+8, Y+8) ,1, BF: LINE(X 
+3, Y+18) - (X+8,Y+2Ø) ,1,BF 

5162 XX=X:X=X-3:GOSUB53Ø6 : GOSUB53@8 : X=XX 
: YY=Y : Y=Y+3 : GOSUB53@6 : Y=YY-3 : GOSUB5398: Y 
=YY : RETURN 

5170 GOSUB53ØØ:GOSUB53Ø1:GOSUBS53Ø2 : GOSUB 
5393 :LINE(X+12,Y+9) - (X+14, Y+14) , 1, BF:GOS 
UB53Ø6 : GOSUB53Ø5 : GOSUB53Ø7 : RETURN 

5180 GOSUB5319 

5182 LINE(X+3, Y+6) - (X+8,Y+8) , 1, BF: LINE(X 
+3, Y+15) - (X+8 , Y+17) ,1,BF: LINE(X, Y+9) - (X+ 
2,Y+14) ,1,BF: LINE(X+9 , Y+9) - (X+11, Y+14) ,1 
, BF 

5184 GOSUB53Ø5:YY=Y:Y=Y-3:GOSUB53Ø7 : XX=X 
:X=X-3:GOSUB53Ø8 : Y-YY:GOSUB5306 : X=XX : RET 
URN 

5198 GOSUB511Ø:GOSUB53ØØ:GOSUB53Ø4:GOSUB 
5399 : GOSUB5396 : RETURN 

5200 GOSUB53@2: LINE(X+6, Y+6) - (X+8,Y+17), 
1,BF: LINE(X+3 , Y+6) - (X+5, Y+8) ,1, BF: LINE(X 
+6, Y) - (X+8 , Y+2) ,1,BF:RETURN 

5210 GOSUB53@2 : LINE(X+6, Y) - (X+8,Y+17),1, 
BF: LINE(X+3, Y) - (X+5, Y+2) , 1, BF: RETURN 
5220 GOSUB525%: GOSUB5394 : GOSUB53%9 : RETUR 
N 


5239 GOSUB5300:GOSUB5302:GOSUB5303:GOSUB 
5394 : GOSUB53Ø5 : GOSUB53Ø6 : GOSUB53Ø7 : GOSUB 
53Ø8 : RETURN 

5249 LINE(X,Y+6)-(X+2,Y+23) , L, BF :XX=X: X= 
X+3 : GOSUB5182 : X=XX : RETURN 

525Ø LINE(X,Y+6)-(X+2,Y+2Ø) ,1, BF: LINE(X+ 
6, Y+6) - (X+11, Y+8) ,1, BF: GOSUB5396 : XX=X: X= 
X+3 : GOSUB53@5 : X=XX : YY=Y : Y=Y+3 : GOSUB53Ø5: 
Y=YY : RETURN 

5260 LINE(X+3,Y)-(X+5,Y+17), L,BF:LINE(X, 
Y+6) - (X+11,Y+8) ,1L,BF:LINE(X+6, Y+18) - (X+1 
1,Y+2Ø) ,1L,BF:GOSUB53Ø8 : XX=X : X=X+3 : GOSUB5 
3Ø7 :X=XX: RETURN 

5279 LINE(X,Y+6)-(X+2,Y+17) ,1,BF:LINE(X+ 
9,Y+6) -(X+11,Y+17) ,1, BF: LINE(X+3 , Y+18) - ( 
X-8,Y420),1,BF 


5272 GOSUB53Ø7 : XX=X : X=X+9 : GOSUB53Ø7 : X-XX 
-3:GOSUB53Ø8 : X=XX : RETURN 

5289 FORI=XTOX+2: LINE(I , Y+6) - (1+6, Y+29): 
LINE(1+12,Y+6)- (1+6 , Y+2Ø) : NEXT: RETURN 
5299 LINE(X, Y+6) - (X+2,Y+14) ,1, BF: LINE(X+ 
3, Y+15) - (X+8, Y+17) , 1, BF: GOSUB5319 

5292 YY-Y:Y-Y-3:G08UB5307:XX-X:X-X-3:GOS 
UB53Ø8 : X=XX : Y-Y-3:GOSUB5308 : Y=YY : RETURN 
53ØØ LINE(X+3 , Y+6) - (X+11, Y+8) ,1, BF:RETUR 
N 


53Ø1 
URN 
5392 
URN 
5393 
5394 
URN 
5305 FORI=XTOX+3:LINE(I1, Y+9) - (1+3 , Y+6) :N 
EXT : RETURN 

5396 FORI=X+8TOX+11: LINE(1, Y+6) - (I+3 , Y+9 
) :NEXT : RETURN 

5397 FORI=XTOX+3: LINE(I , Y+17) - (1+3 , Y+2@) 
: NEXT: RETURN 

5398 FORI=X+8TOX+1l:LINE(I,Y+2Ø)-(1+3,Y+ 
17):NEXT: RETURN 

5309 LINE(X412,Y-18) -(X*14, Y+2Ø) , 1, BF: RE 
TURN 

5319 LINE(X+12 , Y+6) - (X+14, Y+2Ø) , 1, BF: LIN 
E(X+3 , Y+21) - (X+11,Y+23) ,1, BF: YY=Y: Y=Y+3: 
GOSUB53Ø8 : Y=YY : RETURN 

1ØØØØ LINE(X,Y)-(X+5,Y-5) : LINE(X+1, Y) - (X 
+4,Y) :PSET(X+5,Y-3) : PSET (X+6, Y-5) : LINE(X 
+7,Y-5)-(X+9,Y-3) :LINE(X+9,Y-2) - (X+9,Y-1 
) 

19992 LINE(X+8,Y)-(X+1Ø,Y) : LINE(X45, Y+1) 
- (X+7 , Y+3) , 1, BF: PRESET (X+5, Y+2) : PRESET(X 
+7,Y+3) : LINE(X+11, Y+1) - (X+19 , Y+9) : LINE(X 
+12, Y+1) - (X+18 , Y+7) 

19994 LINE(X+5 , Y+4) - (X+8 , Y+11) : PSET(X+7, 
Y+7) : PSET (X+8, Y+4) : LINE(X+8 , Y+5) - (X+13,Y 
+10) : LINE (X+14 , Y+1Ø) - (X+17 , Y+12) : LINE (X+ 
17 , Y+8) - (X+18 , Y+9) 

19996 LINE(X+18,Y+1Ø)-(X+19,Y+12) ,1,BF:L 
INE (X+9 , Y+11) - (X4+13 , Y+15) : LINE (X4+19 , Y411 
)-(X+11,Y+12) : LINE(X+11, Y+14) - (X+12, Y+15 
) : PSET(X+19 , Y+13) 

19998 LINE(X+29@, Y+13) - (X+23 , Y+16) : LINE(X 
+19 ,Y+14) - (X+21, Y+16) : LINE(X+19 , ¥4+16) - (X 
+21,Y+18) : LINE(X+22 , Y+17) - (X+24,Y+19) ,1, 
BF: PRESET (X+22 , Y+19) 

19919 LINE(X+24,Y+19)-(X+25,Y+2Ø) ,1,BF:L 
INE(X+16 , Y+15) - (X+18 , Y+15) : LINE(X+13 , Y+1 
5) - (X+15,Y+19),1,B:LINE(X+19,Y+19)- (X+12 
, Y+19) : RETURN 

11ØØØ DATA48,18,38,58,48,18,39,48,18,38, 
58,48,18,39,8 

12ØØØ DATA16,37,16,37,16,26,36,46,37,16, 
37,£6,37,16126,364,46,57,7 


LINE(X43,Y412) - (X+11, Y+14) , ], BF: RET 
LINE(X+3,Y+18)- (X+11, Y+2Ø) , 1, BF: RET 


LINE(X,Y49) - (X42, Y417) , 1, BF: RETURN 
LINE(X+12, Y+9) - (X+14, Y+17) , 1, BF :RET 
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MILI. BASIC Bytes 1000, 1200, 2000 


Mailing labels from a spreadsheet? 
Richard White shows you how! 


Marrying BASIC 
and a Spreadsheet 


ver the past few months, Danny 
(s has been showing 

you how to program d BASE II 
to handle a mailing list and print mail- 
ing labels. Use of a database manager 
utility is but one way to skin the mailing 
label cat. A mailing list can also be kept 
in a spreadsheet. 

I have a nearly 400-name list of 
vendor representatives in Lotus 1-2-3. 
This was very easy to set up. List main- 
tenance is also quick and easy. But, 
there is no way I can print mailing labels 
from Lotus. Does this mean that you 
need to go out and buy a database 
manager to go with your spreadsheet 
to do your mailing lists? Not necessar- 
ily. This month we will give you a simple 
BASIC program that will take an ASCII 
file produced by your spreadsheet and 
print mailing labels from it. 

The idea of writing programs to do 
special manipulations of data files is as 
old as computers. In recent years, 
specialized software to do many of these 
tasks has reduced the amount of 
customizing that the user needs to do. 
Still, if you are going to try to stay with 
generalized utility programs, you are 
going to need to do some programming. 
It may be done using a language 
provided by the utility itself as in the 
dBASE II case. If you know the 
structure of the database, the program- 
ming can be done in BASIC or any other 
language you might choose. 

If your spreadsheet can produce an 
ASCII disk file, you can make a file 


(Richard White has a long background 
with microcomputers and specializes in 
BASIC programming. With Don Dol- 
lberg, he is the author of the TIMS 
database management program for the 
Color Computer.) 
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of known structure. When you choose 
the printer function in VisiCalc or Lotus 
1-2-3 with ^P, you are given a choice 
of "printer" or "file." If you choose the 
printer, a stream of number codes for 
the letters to be printed is sent to the 
printer. If you choose “file,” the same 
stream is sent to a file on disk which 
will be the famous ASCII file, subject 
of Bill Barden's ode to sequential files 
in the August 1985 issue of PCM. 

Now that the file is there, we need 
to discuss its structure. Bill was writing 
about finding particular characters or 
character strings in the file and con- 
verting these to something else. He did 
not need to worry about where these 
strings were in the file or whether there 
were any specific arrangements for the 
data. Our problem is somewhat differ- 
ent since to print a mailing label, we 
need to find a name and print it on 
one line, find an associated address and 
print it on the next line and so on. 

A spreadsheet makes a simple but 
effective file manager. To understand 
file structure, we need to discuss some 
basic concepts of file management. A 
file is a collection of records. This might 
bring to mind phonograph records 
which you might have quite a few of. 
You could make a file of the titles of 
all the albums. Widen Column A to 20 
or 25 characters and type the names 
into the cells down the column. 

OK, they are out of any logical order 
so there needs to be some sorting. 
Spreadsheets sort by exchanging 
columns or rows. Everything in the row 
or column is swapped with the next. 
This is not a mindless swapping. The 
spreadsheet looks within a range you 
give it and does the sorting according 
to the contents of the cells in the range. 
At this point, to sort the album file, 


By Richard A. White 
PCM Contributing Editor 


you would use a range in Column A 
to include all the titles. The sort 
function works from the left most 
character in each name comparing 
characters with the next name until a 
mismatch is found. A swap occurs 
according to fixed rules. 

Sorting can arrange the records in 
ascending order where the smallest is 
first or in descending order where the 
smallest is last. Okay for numbers, but 
which is smaller, A or B? 

This brings us right back to the 
ASCII code numbers for each charac- 
ter. All the characters you can type from 
the keyboard and then some have a 
number assigned. That number is the 
ASCII value and it's that number that 
the computer uses to decide if A is larger 
than B. A's ASCII value is 66 while 
B's is 67, so the computer thinks B is 
bigger and you aren't going to change 
its mind. 

Let's check out the rats in ASCII’s 
woodpile. Here is a file of names of 
computer books on my shelf sorted in 
ascending order. 


PROGRAMMING THE 280 
1-2-3AT0Z 
BASICØY TOURGUIDE 
INTRODUCTION TO PASCAL 
THE C PROGRAMMING LANGUAGE 
cOMPUTERS FOR TECHINCIANS 


A record with a leading space always 
sorts to the top of an ascending sort. 
You may not notice the space and 
wonder how a record got so out of 
order. That's how PROGRAMMING THE 
280 got to the top. 

Numbers have lower ASCII values 
than letters, so 1-2-3 A to Z is just 
where it should be. If you enter dates 
like 774785 and 10/12/85, Month 10 


will sort before Month 7. This is one 
reason you see computer produced 
dates like 07704785. The leading @ 
sorts ahead of 1 and puts July before 
October. 

Finally, lowercase letters sort after all 
uppercase letters. There are some 
punctuation and special characters 
before the numerals and some after, but 
all sort before the alphabet. 

The album file only contains the 
names of the albums. These are only 
in Column A. Each row is a record and 
each has only one field in use, the 
Column A cell's. Lets call column A 
the “name” field. 

There is other data that is associated 
with each album such as performers, 
publisher, type of music, date of 
publication, your rating of the perfor- 
mance and playing time to name a few. 
A column could be devoted to each of 
these data types with the particular data 
entered in the proper column in the row 
with the title to which it pertains. Again, 
each row is a record which now would 
have a number of fields of data. You 
have done this sort of list on paper 
before. But, you probably were not 
thinking in terms of records and fields 
when you did. 

Now your sorting options become 


MSDOS UTILIT!1 
TANDY 1000, 1200, 


vert RAMDISK ***** 


RAMDISK -- Usc spare memory as a superfast disk to 


broader and you can do a number of 
sorts on the file. First, let's sort the 
whole file by type of music. You call 
the sort again and give for the range 
the column containing the music type 
data and include all the rows in use. 

With that sort made, you might want 
the hard rock type sorted by performer. 
All hard rock albums should now be 
in one group in the spreadsheet. Sort 
using the performer column, but limit 
the range to only those rows that 
include the hard rock entries. You could 
as well have sorted hard rock by title 
or even year of publication. 

Which way should the file be stored 
on disk? It's something to think about. 
If you have spent some time making 
multiple sorts, think about storing the 
file that way. You can always load it 
and re-sort it if you want it arranged 
differently for a specific purpose. You 
can even save it sorted in a number of 
ways to different separate files, but keep 
in mind that when updating time comes, 
you will have multiple files to update. 

Don't forget the columns; they can 
be sorted as well without jeopardizing 
the integrity of the information in a 
record. The fields will just be in a 
different order in a record. 

Since we are going to set up the 


ES 
2000 
IBM.PC/XI AT. 


mailing list in a spreadsheet, we can 
establish the structure pretty much as 
we need, to do the job. The specifica- 
tions include the number of fields to 
use, what goes into each field and how 
wide the column for each field should 
be. Here is a setup that works well for 
me. 


Column Contents Width 
A ACCOUNT tt 25 
B FIRST NAME 16 
C LAST NAME 16 
D ADDRESS 1 25 
E ADDRESS 2 25 
F CITY STATE 20 
G ZIP CODE 10 
H TELEPHONE 12 


The account number could include 
a variety of information and it may or 
may not be printed on the label. A 
membership or subscription expiration 
date is a natural use, but you could also 
code sales activity or other needed data 
into the field. First and last names are 
in separate fields to make possible 
sorting on the last name within the 
spreadsheet. 

Two address lines allow entry of a 
company name or suite, apartment or 
box numbers along with street address. 


SAVE SALES TAX *PLUS DISCOUNT 


speed up applications. (You specify Ramdisk size). 
Appears to programs as a disk, but gives instant 


access. Easy to install and use. 


«sie USER TOOL BOX Hti 


SINGLE KEY COMMAND -- Define any text string 


(or DOS Command) as a single kcystrokc. 


single key to exccute commands! 


Press 


*TEXAS RESIDENTS ADD ONLY 4% 


ALPHABETIZED DIRECTORY DISPLAY -- Vicw 
Directory on I screen (5 columns, sorted, Fast!). 

FIND FILE -- Search all directories for file. 

DIRECTORY DTREE -- Display all sub-directory 
names in an casily readable form. 

CHANGE FILE ATTRIBUTES -- Make files hidden, 
readonly, archive, etc. Set or reset attributes. 


s.. FULLBACK ***** 


Finally, an casy to usc backup program that kccps exact 


images of your files on backup floppics, cartridges, or 
hard disk. Automatically backup one, scveral, or ALL 
subdirectories. Backup modified onlv, or ALL files. 
Kecps perfectly organized backups - backup structure 
is identical to original. Supports backup by date, 
multiple backup copies, large files (up to 32MB). Far 
superior to DOS BACKUP, easier to use, and much 
more reliable. Absolutely a MUST for hard disk users. 


ses... SNAPSHOT ***** 


Instantly snap an image of your screen for later recall. 
Simple keystroke combination to save or recall screen 
images before they disappcar forever. Save and load 
from a file. Available from DOS and applications. 


More ALPS Tools Available. Call or Write for ALPS 
catalog. Customer Support !!! 


ALPS 
1502 County Road 25 


Woodland Park, Colorado 80863 
303-687-1442 





TANDY 200-72K 


nrw Turn 
FORT WORTH COMPUTERS 
SORE SANS 


WE ARE SERIOUS ABOUT SAVING YOU MONEY 
(Located 30 miles from Fort Worth) 
377 PLAZA e GRANBURY € NR FORT WORTH, TEXAS 76048 


CALL FREE: 1-800-433-S-A-V-E 
Monday thru Friday - 9:00 a.m. to 5:00 p.m. 
(Order inquiries/Customer Service &) IN TEXAS: 817-573-4111 
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City and state are grouped in one field 
since mailing sorts are done on ZIP 
codes rather than city or state. ZIP 
codes are set up so that state and city 
automatically group on a ZIP code sort. 
Note the 10-character ZIP code field 
that supports the new nine-digit-plus- 


dash ZIP codes. The 12-character 
telephone accepts long distance 
numbers. 


The program in Listing | prints one- 
across, one inch high labels on contin- 
uous label stock. It will send its output 
to a printer, or to a disk file for later 
use, perhaps with a mail-merge pro- 
gram to print personalized form letters. 

After clearing 10,000 bytes of string 
space, the program jumps to Line 100 
where field size data is read into the 
CR(x) array. First the program reads 
A$ and then CR(x) in a FOR/ TO/NEXT 
loop. The data in R$ is essentially 
thrown away. We can see why by 
looking at Line 1000. 


1000 DATA ACCOUNTH,25,1ST 
NAME, 16,LAST NAME,16, 
ADDRESS1,25,ADDRESS2,25, 
GITYZST,20,; ZIP 10, 
TELEPHONE, 12 


Note the data pairs, for example 


ACCOUNTH,25. This documents a field 
name and its associated field width. 
Should you decide that you need 35 
characters in the account field, set up 
your spreadsheet accordingly and then 
change the 25 to 35 in Line 1000 and 
the program will properly print your 
labels. 







ma ms p 
| codes rather 
than city o 


ue 






Lines 105 to 140 ask you for infor- 
mation on files to be used and opens 
these. Where there is a choice like 
“Printer” or "File," press a P or an F. 
It does not matter if your CAPS is on 
or not since the INKEYS subroutine in 


Line I that gets your response, converts 
any lowercase characters to uppercase. 

Lines 150 and 155 find out if you 
want the account number or telephone 
printed. Because only six lines fit on 
a one-inch label and we should have 
a blank line between name blocks, you 
can print either the account or the 
telephone number, but not both. The 
account information is printed above 
the address data while the telephone 
number prints below. 

The real work starts in Line 158 
where the total record length (RL) is 
calculated. In Line 160, an end-of-file 
test, EOF (1), is made on the input file. 
In 165, we get a record and test it to 
see if it contains a full record. If 
LEN(AS)<RL the record is defective in 
some way and an error might occur 
when the program tried to use the 
record. Unless you made a range 
mistake in saving your ASCII file, all 
spreadsheet-produced records should 
be right. The same cannot be said for 
files produced in other ways. 

From lines 170 through the end of 
the program take the record apart and 
print the label. The variable WS$ is used 
here in conjunction with the subroutine 
at Line 30. Data is drawn from the 
record and put into WS$. In Line 30, 


24K Expansion RAM 8K Expansion RAM 


For the Model 200 
$270. 


.$140. each 


for two 


For the Model 100 & 8201 
$29. each 


$81 » package of 3 


These Modules are easily user installable 
and they feature: 


e Low Power CMOS Static RAM 
* 30 Day Satisfaction Full Refund Policy 
* High Quality Sockets 


M/C, VISA, Check or Money Order 


Shipping-Add $1.50 UPS Ground 
or $4.00 2nd Day Air. 
CA Residents add 696 Sales Tax 
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e Instructions Include 
Test Program Listing 
e One Year Warranty 


Cryptronics, Inc. 


11711 Coley River Circle, Suite 7 
Fountain Valley, CA 92708 
Phone: (714) 540-1174 


D 
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The program is fairly short. Its logic 

is possibly more challenging than the 

This approach gives you another tool 

for tailoring spreadsheet printouts. A 

prime tool has always been to use a 
October 1985 


BASIC involved for those with some 


experience in programming. 
particularly good if the output file is 


word processor or text editor on a 
spreadsheet ASCII output file. This is 
close to what you want the final report 
to be. However, converting a spread- 
sheet listing to label format in a text 
editor is too much hard work and just 
the type work computers are meant to 


do. 


“Addressl” 
ZIP code field, 
causes the tele- 


phone number to be output if you chose 


that option. 


with 
fields. Line 20's sub- 


200 deal 


“ Address2" 
routine determines if a field is empty. 


a separating space and the 
name are added to the string. Line 


30 is called to output the string. 


, 


it is not output, but the variable 
EX is incremented and used to print 


state field with the 


Line 175 obtains the first name and 
has them output and 


Lines 185 


any spaces that are and 
of the label. Line 205 concatonates the 


compensating blank lines at the bottom 


Line 180 


last 
If so, 


will 
mm 
TNT 

T 
35. 

i 

| 
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right character remains a city, 
Line 20 will 
zero. We 


first 
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Remember that we put first name and 
last name into different fields? Now we 
must combine the contents of the two 


fields. But 
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it is determined if the printer or file 
tacked onto the end of the first name 
to fill out the field must be stripped 
off. The subroutine at Line 20 does that. 
This subroutine keeps looping and 
dropping one right space from WS$ as 
long as the 

space. If the field is empty, 

return with L equal to 


output accordingly. 
use this later. 





The Ultimate Expansion for the Model 1000! 
TanPak ™ by Hard Drive Specialist 
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SEAL 


TanPak ™ 

The TanPak ™ expansion board has been designed 
to allow expansion beyond the scope of the standard 
Model 1000. Seven of the most needed functions/ 
features have been combined into one package using 
only one expansion slot. Your remaining spaces are 
left free for future expansion needs. 


Seven Function/Features on One Board 


512K Memory Expansion 
Socketed and expandable to 512K. This is done by 
two banks of memory using either two 64K increments 
` (128K), or 256K increments (256K or 512K). This 
allows a total of 640K in the Tandy 1000. 


Serial Port 

Using the same configuration as the Model 1000 
port you are assured of complete compatibility as well 
as being able to configure it as COM1 or COM2. 


Clock-Calendar 
Quartz-controlled for a high degree of accuracy, 
featuring a battery backup. 


DMA 

The DMA (Direct Memory Access) is used on the 
Model 1000’s first memory card. It increases memory 
speed and is a must for hard drive operation. 


Printer Spooler 

Use part of your TanPak ™ memory as a printer 
buffer. Choose the amount of buffer space you need 
and stop waiting on your printer. 











Ordering Information 


<- Use our W.A.T.S. line to place your order via Visa, MasterCard, or Wire 
Transfer. Or mail your payment directly to us. Any non-certified funds will be 
held until proper clearance is made. COD orders are accepted as well as 
purchase orders from government agencies. UPS ground is our standard 
“means of shipping unless otherwise specified. Shipping costs are available 
upon request. Tandy and Radio Shack are trademarks of the Tandy 
«Corporation, TanPak, and TanTel are trademarks of Hard Drive Specialist, 

a division of Compukit Corporation. 




















"um 


ESSA ee MAMMA SNR 
et DN SS 


Memory Disk 
Expansion Port 
Future Options 





Features Include: 
Gold Edge Cards 
Pre-Tested and Burned In 
Full Documentation 
Supporting Software 
One Year Warranty ` 
Expandable to 512K 





Memory Disk 

Use part of your TanPak ™ memory as a RAM drive. 
With a solid state drive you can store, retrieve, and 
sort data quickly and easily. 


Expansion System 
The TanPak ™ was designed with an expansion port 
that will allow upgrading with additional features when 
they become available. Some of the possible features 
are: a second parallel port, a second serial port, 
mouse, hard drive port, bubble memory, A/D, and D/A 
as well as many others. 
TanPaK ON CO EA E sd ot EM E dfe $349. 
Call for pricing on memory modules. 


TanPak ™ Secondary 

If you already have a Model 1000 memory board 
and do not wish to replace it, the TanPak ™ Secondary 
is for you. It features Memory up to 256K, 
Clock/Calendar, Serial Port, Printer Spooler, and 
Printer Buffer. 
TanPak ™ Secondary OK ....... Seal at slg osten $249. 


TanTel ™ 

Internal 300/1200 baud Modem for the Tandy 1000. 
Supported by the DeskMate software package. 
TAN ON ai DV vs eek aoa ec S Mr ed AS $249. 








Hard Drive Specialist 
16208 Hickory Knoll 

Houston, Texas 77059 

1-713-480-6000 

Order Line 

1-800-231-6671 
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ve Specialist 


Shop and compare. Hard Drive Specialist has been 
building hard drive systems for years and have sold thou- 
sands of subsystems to satisfied Radio Shack/Tandy cus- 
tomers. We use the latest state-of-the-art disk drives and 
controllers. Our drives all use buffered seek logic and plat- 
ed media to result in almost one-fourth the average access 
times found on our competitors drives. Plated media 
results in longer platter life and high resistance to head 
crashes not found on coated media drives. We utilize high 
quality construction throughout including heavy duty 
power supplies and gold edge card connectors. Internal 
drive systems include an interface card and a half-height 
hard drive that replaces the top disk drive in both size and 
power consumption. External units include an interface 
card, case, power supply and hard drive unit. All units re- 
quire a memory board with DMA such as the TanPak" 
multifunction card, or a Tandy Board, Part 425-1004. 


Ordering Information 


Use our WATS line to place your order via Visa, MasterCard, or Wire Transfer. Or, mail your 
payment directly to us. Any non-certified funds will be held until proper clearance is made. COD 
orders are accepted as well as purchase orders from government agencies. UPS ground is our 
standard means of shipping unless otherwise specified. Shipping costs are available upon re- 
quest. Tandy and Radio Shack are trademarks of the Tandy Corporation. TanPak, is a trademark 
of Hard Drive Specialist, a division of Compukit Corporation. 
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rd Disk System Features: 

All sizes rated after formatting. 

One secondary drive may be added. 
Error checking and correcting controller. 
Software drivers included. 

Buffered seek drives for improved access time. 
Built in power up diagnostics. 

Plated media for long disk life. 

Gold connectors used throughout. 

1 year warranty. 

Boots directly from Hard Drive. 

Uses Tandy 1000 MS DOS. 


Megabyte Internal................ $ 549. 
Megabyte Internal................ $ 749. 
Megabyte Internal................ $1349. 
Megabyte External.............. . $ 699. 
Megabyte External............... $ 899. 
Megabyte External............... $1495. 


Hard Drive Specialist 
16208 Hickory Knoll 

Houston, Texas 77059 

1-713-480-6000 


Order Line 
1-800-231-6671 





ML dBASE Tutor 


We put the finishing touch on our 
mailing list program this month by 
bringing everything together in a 


user-friendly menu 





1000, 1200, 2000 


Building a dBASE Menu 


or the past two months, this 
bs has been devoted to our 

first dBASE II programming 
project — the mailing list program. We 
have built the three måin sections of 
the system: a program to enter and edit 
records, one to print a report and one 
to print mailing labels. Now it's time 
to bring these three programs together 
into a *menu-driven" environment. 

Menus, as you know, are screen 
displays of choices for a user to make. 
In our case, we will want a menu 
whereby the user can select one of the 
three programs we have written for the 
mailing list system. Instead of having 
to remember the names of the individ- 
ual files, the user can type something 
like DBASE MAIL and have access to all 
the related dBASE II programs. 

For those of you who may have 
missed the first two parts of this series, 
the structure and indexes for the 
database file appear in Figure 1. Figure 
2 is the screen format file and Figures 
3, 4 and 5 are the three programs we've 
written thus far. 


Building a Menu 

As mentioned, we'l want to have 
selections in our menu for the three 
programs that we've written. We'll also 
need a selection to allow the user to 
exit out of the program and back to 
MS-DOS. While this seems a simple 
concept, even experienced pro- 
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grammers, who are used to breaking 
out of a program in abnormal ways, 
often forget to add a way out of their 
program. Imagine going into a grocery 
store through the “in” door and later, 
with your arms full of groceries, 
discovering that the builder had forgot- 
ten to put in an “out” door! 

The mailing list menu program, 
MAIL .PRG, is listed in Figure 6. As we 


By Danny Humphress 


have done in the past, let's go over it 
line-by-line. 

The first four lines, as in the previous 
four programs, set up the operating 
conditions for dBASE. 

Line six sets up an endless loop 
between it and Line 12. We need an 
endless loop here because we want the 
operations within it to be performed 
until the user exits from the program. 











| Figure a) 
|| STRUCTURE FOR FILE: C: MAILS PAAS) =) HIT 
| NUMBER OF RECORDS: PAPA... 
| DATE OF LAST UPDATE: 98/91/85 
PRIMARY USE DATABASE HH 
He e E TYPE WIDTH DEG ^ 
PP 40 0839. 
(A02 Vara 
(893 . (0 Bis. 
4884 7 JUNI ce 
Hed Hd qe | (p 
AR PHONE. HER de P 














When the user does exit, line 39's quit 
command gets them out of the loop, 
out of the program, and out of dBASE 
II. 

Line eight simply erases the screen 
to make things nice and tidy for our 
menu. 

Lines nine through 13 display a title 
and the four menu selections. The 
screen coordinates were figured so that 
the menu will be nicely centered on the 
screen. An easy way of doing this when 
doing your own programming is to use 
a word processor that will automat- 
ically center text on the screen. With 
the text centered (make sure your text 
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width is set to 80 characters to match 
the screen size), count the number of 
spaces from the left edge to the first 
character or, if the word processor has 
this feature, look at the column number 
where each line begins. 

Lines 15 through 20 wait for the user 
to enter a valid response. This type of 
answer checking loop is a common 
dBASE programming technique and 
has been used in the other three 
programs of the mailing list system. The 
conditional on Line 16 is rather lengthy 
because of the number of valid answers. 
There is a better way of doing this, but 
this way is easier to understand. Hint: 
change the line to read do while .not. 
ANSWERS’ 1234’. 

Lines 22 through 25 check to see if 
the user has selected menu item Number 
I. If they have, the do MAILEDIT 
command is executed and control is 
turned over to that program. When that 
program exits with a returncommand, 
control will be returned to this program 
and execution will resume at the next 
line. The next line, loop, tells dBASE 
to go back to the beginning of the do 
while loop, where the screen will be 
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Give your Model 100 


128K 








Installs as easily 


as plugging 
in a socket 


Software included, transfers from bank to bank. Works like main 
menu! Includes powerful RAM Basic that lets programs store 
and access data from any other bank. 


PCSG says: Satisfaction guaranteed or your money back 


As amazing as it seems you can up- 
grade your Model 100 to 128K of RAM 
in just 60 seconds. 

It comes to you right out of the box 
looking just like the picture. You just open 
the little compartment on the back of your 
Model 100 with a quarter and it just pushes 
right into place. You can then put the cover 
back in its place. 

You then have 4 banks of RAM of 
32K each. The additional three banks 
also work just like your Main Menu. 

You push a function key and you are 
in the second bank. Push again and you 
are in third, again, then fourth. Press it 
once again for your original bank. 

It has its own built-in NiCad battery 
that recharges right from the Model 100 
and its guaranteed for a full year. 

What is really great is that you can 
copy a file from one bank to another with 
just a function key. 

Each bank is like having another 
Model 100, and all the built-in programs 
as well as any snap-in ROM programs ap- 
pear in all four banks and work the same 
way. Your widebar cursor moves from file 
to file and you access any file or run any 
program just by pressing ENTER. 

What lets you copy any file from one 
bank to another is a snap-in ROM from 
PCSG called RAM +, that comes at no 
extra charge. It just pushes right into the 
little socket in that same compartment with 
the 96K expansion unit. 


within 30 days 


Not only does this firmware let you 
copy a file from bank to bank, but you can 
make a copy of any file within the same 
bank instantly with a function key. Great 
for Lucid spreadsheets! 





Copy a file from 
bank to bank with a 
function key 





You can also rename a file, or kill any 
file with just a function key. Plus you can 
do a whole lot of other useful things like 
setting the date, day and time with func- 
tion key ease. You even have a function 
key that lets you use non-Radio Shack 
printers without having to make those 
tricky dipswitch settings. 

RAM - lets you cold start any one of 
your banks without affecting the other 
three. That means that anytime you want 
you can clean out a bank's entire memory, 
but leave intact all the files in the other 
banks. 

What is also fantastic is that you don't 
have to have the ROM in place to use the 
additional RAM. Whenever you take out 
the snap-in ROM it leaves behind a tiny 
machine code program that lets you switch 
from bank to bank just by pressing 
ENTER. 


This lets you use your ROM socket to 
snap-in other ROMS like LUCID spread- 
sheet, WRITE ROM text processor, or 
DISK + ROM file transfer program, and 
use them in any or all four banks. All of 
these, by the way, are available from 
PCSG. 

When you are ready to copy a file 
from one bank to another or use any of the 
other fantastic functions we talked about 
you can just snap the RAM + ROM back 
into place. 

Everybody that has this 128K system 
in their Model 100 is so excited, because it 
gives them four times the capacity and 
all banks work just like the Main Menu. 

And what has made a lot of people 
happy is that the system bus, located in the 
same compartment, is left free for you to 
plug in a DVI or the Holmes Engineering/ 
PCSG portable disk drive. 

The ability to copy a file from bank to 
bank instantly with a function key, plus all 
of the other features make this RAM ex- 
tension truly an engineering masterpiece. 

Some people hesitate when they think 
of installing something, and then others 
are skeptical that any additional hardware 
could be as good as the Model 100 itself. 
That's why we sell these 96K expansions 
on a 30 day trial. Simply return it within 30 
days for a full refund if you are not satis- 
fied. Priced at $425. MC VISA COD. 


1-214-351-0564 





RORTABLE COMPUTER SURORT ORQUP 


11035 Harry Hines Blvd. No. 207, Dallas, Tx. 75229 
VISA / MASTER CARD / AM. EXP. / C.O.D. 





cleared and the menu will be displayed 
once again. 

The commands in lines 27 through 
30 and 32 through 35 perform the same 
functions as the previous if/endif 
condition. The same functions, that is, 
except that they call the other two 
programs. 

If the person selects Number 4, it will 
be detected in Line 37, the screen will 
be erased, and dBASE will quit. 

Question: When will the flow of this 
program ever reach the enddo in Line 
42? The answer is "never." The loop 
in lines 16 through 20 will not allow 
the user to enter anything other than 
‘1’, ‘2’, ‘3? or 4”, thus, the answer will 
be trapped by one of the if/endif 
conditionals. Each i f “endif has either 
a loop command, which returns pro- 
gram flow to the top of the loop, or 
a quit command which causes dBASE 
to exit back to MS-DOS. 

Congratulations! You have written 
your very first dBASE II program... 
well, with just a little help from this 
end. With this mailing list program as 
a foundation, you should be able to 
build something you can call your 
own. EJ 


¿Figure 5: 


NO oc - Os Un de NI 


ro 


set talk off 
set colon off 


"Bet confirm on 


set bell off 
erase 


8.190,29 say 'Preparing to print mailing list report.' 

store ' ' to ANSWER 

do while (ANSWER«»'Y' 
‘store 'N' to ANSWER 
412,27 say 'Do you want to continue? ' get ANSWER picture '!! 
read 
clear gets 

enddo 

eigi 

8e.12,g 


sand. ANSWER<>'N!') 


if ANSWERS'N' 
"return 
endif 


store! '' to ORDER 
do while ORDER<>'N! .and. ORDER«»!Z' 
store 'N' to ORDER 
e Pria say 'Sort the list by [N]ame or [2]ip? ' get ORDER picture / vio 
rea 
clear gets 
enddo 
812,92 


1f ORDER="N! 

use MAIL index MAILNAME 
else 
//Mse MAIL index MAILZIP 
endif 


€: :12,34. say 'Printing...' 

set console off 

report form MAILLIST to print 
set console on 


use 
return 


Figure 6: 
| set talk off 
2 set colon off 
3. set) confirm on 
4 set bell off 
5 
6 do while T 
7 
8 erase | j 
9 09,30 say 'Mailing List Program! 
10 Q 11,25, say !l. Enter or Edit Records! 
1 C 12,25 say '2. Print) Mailing List Report' 
12 013725; say !'3. Print Mailing Labels! 
13 0.014,25 say '4. Exit" 
14 
[5 store ' ' to ANSWER 
16 do while ANSWER«»'1' .and. ANSWER<>'2* .and. ANSWERS SEZ .and. ANSWER<>!4 
17 €” 16,28 say 'Your selection please: ' get ANSWER picture '9' 
18 read 
19 clear: gets 4 
20 enddo 32 if ANSWER-Z!3! 
?1 33 do MAILLABL 
22 ^ "if ANSWERS VI! M loop 
23 do MAILEDIT 35 JENA LE 
24 loop 36 
25 endif 37 if ANSWER-'4' 
26 | 38 erase 
27 if ANSWERS!2! 39 quit 
28 do MAILLIST 200 endi 
29 loop 4T 
30 endif Hi 42 enddo 
31 
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Changes your Model 100 into a totally different 
computer with capability you never thought possible. 
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TM Infoworld 


rated Lucid's 
performance 
“excellent” 


on Snap-In" ROM 


PCSG says “Satisfaction Guaranteed 


or your money back within 30 days!” 


LUCID® is here now. It is on a ROM car- 
tridge that snaps into the compartment on 
the back of your Model 100. It takes no 
memory to load and no memory for operat- 
ing overhead. That means you have the full 
29.6k bytes free to store your data. 

First, LUCID? is memory conserving. It 
will let you build a large spreadsheet —255 
row by 126 column capacity. You build huge 
spreadsheets in your Model 100's RAM that 
could consume 80 to 100K on a desktop 
computer. 

Secondly, LUCID® is fast. LUCID® is so 
rapid, a 36 column corporate financial 
statement took less than 4 seconds to 
calculate. 

Thirdly, LUCID® has features you won't 
find in most other spreadsheets. For ex- 
ample, when you type a label (text) it will 
cross column boundaries; in other words 
when you type a label or title it will appear 
as you ype it irrespective of column or 
width. LUCID® also allows you to set col- 
umn widths individually, and of course 
LUCID® has insert row and insert columns, 
as well as other standard features. LUCID® 
even lets your formulas refer to cells in 
other spreadsheet files. 

Further, LUCID? has what no other 
spreadsheet has: Cut, Copy, and Paste. It 
uses the same keys as Cut and Paste in 
TEXT, but here’s the difference: it takes all 
the formulas with it when you paste and 
they all automatically recalculate with the 
entire sheet. 

And here is what is really amazing. You 
can copy or cut from one spreadsheet and 
paste into another spreadsheet or even a 
TEXT file. 

LUCID9supports all BASIC math func- 
tions as well as Log, sine, cosine, tangent, 
exponentiation and other sophisticated 
math functions. 

LUCID® has so many features that you 
will say “this is what | need in a spread- 
sheet’, such as automatic prompting of an 
incorrectly typed-in formula showing just 
where the mistake was made. 


LUCID® has expanded “go to” functions 
that remember and produce a windowing 
capability. 

But perhaps most remarkable is that 
LUCID® is not only a spreadsheet but a 
program generator as well. First, LUCID® 
lets you protect all cells against entry or 
change, and then unprotect just the cells 
you want for someone else to use as 
input fields. 

LUCID® will not only process values, but 
text input as well so that the facts other than 
numbers can be responded to. LUCID® has 
the ability for you to refer in a formula to 
cells containing words. This feature com- 
bines with the capacity of doing “if then” 
statements that work by doing table look- 
ups against even massive X/Y charts of text 
or numerical information. You can produce 
a program that responds to inputs with no 
programming knowledge whatsoever. 

You can prepare a report section in your 
spreadsheet with instructions to your user 
for printout, and they can produce a person- 
alized printout that responds to their input. 
All your formulas and tables that did the 
calculations and provided the facts are in- 
visible to that user. LUCID® is useful for 
doctors for patient questionnaires, trouble- 
shooting technicians, purchase clerks, 
people doing job quotes, stores for custom- 
er workups, insurance agents and anybody 
who needs to process specific facts and 
numbers to produce a report based on 
those responses. 

LUCID® comes with a manual that ex- 
plains not only the characteristics of 
LUCID® but will train you how to use a 
spreadsheet even if you have never seen 
one before. You are shown how to do 
budgets, forecasts, breakeven analysis 
amortizations and many other types 
of personal and business reports and 
calculations. 

User friendly is such an over-used term in 
this industry, but a typical comment has 
been “| have never seen a spreadsheet that 
does so much, and yet LUCID® is so much 


easier and faster to use.” 

LUCID® is a result of a most exhaustive 
developmental effort in which PCSG's 
objective was to develop a spreadsheet 
that was better than the state-of-the-art. We 
are so pleased because LUCID® provides 
for the Model 100 spreadsheet capability 
you cannot equal on a desktop computer. 

LUCID® is, in our opinion and that of 
those who have examined it, a break- 
through. We sell it on a 30 day trial. If you 
are not completely satisfied, return it within 
30 days for a full refund. Priced at $149.95, 
on snap-in ROM. MasterCard, Visa 


or COD. 
© PCSG 1984 
Ant with 
softwere for 


the Modal lan 


11035 Harry Hines Blvd., #207 
Dallas, Texas 75229 





Framework: An Integrated 
Power House 


Software 1000/ 1200/2000 


Lotus 1-2-3 was the first integrated 
spreadsheet, database and graphics 
software for IBM PC compatibles. I 
found each of those three features of 
Lotus to be rather weak. The spread- 
sheet wasn’t much better than VisiCalc 
at a time when hard-nosed computer 
people (such as myself) were starting 
to be spoiled by “second generation” 
spreadsheets such as Multiplan. The 
database had all the muscle of a sleeping 
baby. At least it could be said that the 
graphics features were adequate. 

Of course, the main advantage of this 
type of software is the fact that you 
need only one program rather than 
several; however, none of these inte- 
grated products will handle huge 
amounts of data. Besides, most people 
I know who bought Lotus got it for 
only one of its features. An employee 
in a key position of one of the largest 
corporations in the country told me he 
chose Lotus to be used merely as a 
spreadsheet company-wide! He could 
have spent a lot less money and gotten 
a much more powerful (as well as more 
user-friendly) program for the one 
application he needed. 


Now there is an integrated software 
package that addresses some of the 
shortcomings of earlier integrated 
programs: Framework from Ashton- 
Tate, the same people who gave the 
world dBASE II, I must admit that 
since my opinion of dBASE is none too 


high, I wasn’t expecting to like Frame- 
work very well. However, after I 
worked with the package, its advan- 
tages over other products of its kind 
were readily apparent. There are many 
features in Framework that Lotus 1-2- 
3 doesn’t possess unless one goes to the 
extra expense of buying Symphony (not 
the least of which is word processing). 
There are also some unique features in 
Framework’s little bag of tricks. 

That doesn’t mean there aren’t some 
negative points to Framework, but Ill 
talk about those later. 

The best news first. Unlike Lotus 1- 
2-3, Framework is worth buying just 
for its spreadsheet capabilities. How 
many spreadsheets do you know of that 
have built-in functions to figure loan 
amortization payments, permutations, 
currency conversions, modified internal 
rate of return, all major inverse trigo- 
nometric functions, triangle side solving 
and variance? It's heaven for any 
number crunching business or scientific 
user! And I though Multiplan was 
awesome. 

What gives the spreadsheet its clout 
is its ability to borrow functions from 
Framework's intrinsic language called 
Fred. Yeah, I laughed too when I first 
heard the name; it's an acronym for 
FRames EDitor. What is really inter- 
esting is that you can use Fred without 
the spreadsheet or any other application 
in Framework. Fred can be a stand- 
alone language for program develop- 
ment and as far as function repertoire 
is concerned, probably outranks both 
BASIC and PASCAL. 


As with any spreadsheet, the more 
memory your PC has, the more cells 
you can fill. On a 256K machine you 
can fill 522 cells; at 384K you'll have 
1,860; with 512K you'll get a maximum 
of 3,197 and 640K will permit up to 
4,534. 

Just as in Multiplan, you don't have 
to enter formulae in terms of cell 
coordinates; rather, you can have 
English expressions. Instead of saying 
“profit is B2-C2," you can tell the 
spreadsheet that it equals "sales — 
cost." From the delving I have done 
so far, I can't think of any feature of 
Multiplan which can not be imple- 
mented on Framework. 

The word processing feature is fairly 
impressive. Unlike many word proces- 
sors, when you want boldface text it 
not only appears as boldface on paper, 
but also on your monitor's screen. The 
same applies to underlining and italics. 
Also, since you can incorporate a 
spreadsheet (as well as Fred functions) 
into your documents, you essentially 
have a word processor with mathe- 
matical capabilities. 

One major drawback of the word 
processor is that there are no provisions 
for superscripting, subscripting or 
spelling checking. 

One expects a spreadsheet to be 
limited by memory; not so a database. 
With a true database the limitation to 
the size of a file is the amount of disk 
space available on the computer, not 
the computer's RAM capacity. Unfor- 
tunately, Framework's filing program 
can produce files no larger than the 
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amount of free RAM memory there is 
in your system. For instance, you can 
only store 76 records of 10 fields with 
10 characters per field on a 256K 
computer. For this reason I refer to this 
part of the package as a filer rather than 
a database. Unless your record storage 
requirements are very light, you prob- 
ably won't find Framework's filer 
function very useful. 


Framework's graphics resolution is 
rather crude compared to Lotus 1-2- 
3. Both packages produce plots of the 
bar, linear and pie varieties. 

I've never heard of an outliner before. 
To be honest, I was initially a bit leary 
as to the practicality of this Framework 
component. Who needs a separate 
utility to write outlines for written 
works? Why not use the word proces- 
sor? But the outliner goes a step further 
than that. For each topic you put into 
your outline it sets aside a block of 
memory (a frame) into which you can 
later type specific text concerning the 
topic. Thus, your outline can actually 
be gradually turned into the finished 
work. 

Mite, the communications part of 


(fli MARYMAC inousreies we 


800-231-3680 
Radio Shack TRS-80's 
EPSON PRINTERS 


People you Trust to give you the very best! 


* Lowest 


Framework, is as good as any stand- 
alone smart telecommunications pro- 
gram I've seen. Uploading, download- 
ing, auto-answer, auto-dial, and XMO- 
DEM protocol are among the many 
functions which can be invoked. How- 
ever, I did not notice any radically new 
or unheard of features. Mite requires 
a computer with at least 384K. 

Documentation is extensive and 
consists of a tutorial manual and a 
reference manual. These two books 
together comprise more than 1,000 
pages that are, on the whole, fairly 
readable. 

In closing, I think it's important for 
me to say, that there are too many 
features in Framework for any review 
to fully cover all of them. Whether 
Framework is suitable for you depends 
upon what you need done. However, 
I can categorically state that Frame- 
work is one of the more superior works 
of its genre. 


(Ashton-Tate, distributed by Tandy Corp., 
One Tandy Center, Fort Worth, TX 76102, 
$695) 


— Rick Boozer 


Software 1000/1200/2000 





Mlink Found to be a 
Flexible 
Communications 
Package 


Corporate Microsystems has devel- 
oped a very reputable package that will 
work on all three of Tandy's MS-DOS 
computers: the Tandy 1000, 1200 and 
2000. At first, I doubted that it could 
live up to such high standards, but I 
have been pleasantly surprised. Mlink 
has taken the needs of most micro- 
computer installations at heart, and has 
created a package that at a glance can 
satisfy almost all typical communica- 
tion requirements. 

Mlink does transcend well beyond 
thetypical communication packages be- 
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The Preble NavComp: Only $34.95 

The Preble HAMTERM: Only $29.95 

Shipping and handling $1.50 to U.S. and Canada — $5.00 to other 
countries 

Free Brochures available! 

VISA, MasterCard or COD is OK! 


Order From: Dr. Preble’s Programs; 6540 Outer Loop; 
Louisville, KY 40228 (502) 966-8281 


NS 


Products 


*World's largest independent 


authorized TANDY Dealer" 
22511 Katy FWy., Katy (Houston) Texas 77450 


(713) 392-0747 Telex 774132 





80 PCM October 1985 





cause of its flexibility and expand- 
ability. You, fortunately, aren't limited 
to the access of bulletin boards, nor is 
the system so confusing that accessing 
boards would be the only thing you 
would use it for. 

Mlink is very easy to install. The only 
obstacle that I encountered was when 
I tried to use the package with Tandy's 
DC-2212 modem. Hopefully, for truly 
faithful Tandy users, Corporate Micro- 
systems will come out with some 
documentation on how to use this 
particular modem. When I finally 
located a Hayes 1200-Baud Smartmo- 
dem, I was able to fire it up without 
a hitch. 

There were no complicated installa- 
tion steps to follow. I simply copied the 
programs to the hard disk, typed ML INK 
and was on my way. 

Mlink's manual was very concise in 
its explanations on how to use the 
software. I followed the manual step 
by step using Mlink’s online mode and 
discovered that it was a snap to move 
from one option to the next. If and 
when I ran into any problems, I had 
ready access to a "help" screen via the 
on-screen menus. 


Once I was sure the system was 
configured properly (Baud rate, parity, 
etc.), I was ready to dial my first 
number. Immediately I achieved suc- 
cess. This is usually enough incentive 
to peak my curiosity, so I investigated 
further. I was able to set the auto-dial 
function so it would retry the number 
up to eight times before hanging up. 

For computer power-users Mlink 
becomes very tempting because of its 
transfer file option. I experimented with 
this option by hooking up two com- 
puters in the office to see if they would 
cooperate and successfully send infor- 
mation to one another. This is often 
at best a very difficult task necessitating 
a new growth of hair. This option 
worked smoothly and I was able to send 
files from one computer to the other. 
During the transfer process, Mlink 
traced the transfer process by displaying 
the action taking place. 


I could also opt to send a list of 


specified files from a transfer list instead 
of one at a time by using a wild cards 
option. 

Files can also be transferred in the 
verbatim mode, by-passing all error 
checking and transferring the data as 


is. Unless you set the toggle off, Mlink 
will display the contents of the file on 
the screen as it is being transferred. 

As I played with Mlink I began to 
become more confident. I didn't want 
to thumb through the menus. Mlink 
allowed me to do this with its "brief 
mode." I could go directly to the task 
that I wanted without fishing for the 
correct menu. 

Mlink supports another option that 
makes it extremely powerful, "scripts." 
These can be used for simple tasks such 
as logging into another system or for 
tasks as complex as having a computer 
start itself at a certain time of the day, 
copy a series of files, delete a file or 
two, leave a message and log off without 
intervention. 

The script language provided makes 
the possibilities for communication 
very exciting. The script language 
allows someone to get into Mlink and 
change virtually all of the system's 
defaults. File I/O, keyboard and screen 
I/O can be controlled with the script 
language. 

The remote script allows remote 
access to your computer. By doing this 
you can have remote access to do file 
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COLOR COMPUTERS Ed ce 
26-3127 64K Extended Color Computer 2... $219.95 $175.00 
26-3134 16K Standard Color Computer 2 ... 119.95 102.00 
26-3129 Thinline Disk Drive O for Color Comp 349.95 290.00 
26-3018 Extended Basic Kit 36.00 
26-3030 OS-9 with Editor Assembler . . . 59.50 
26-3012 Deluxe Joystick 

26-1208 CCR-81 Recorder .. 

VIP Integrated Library 

VIP Writer 


TANDY 2000 


26-5103 Tandy 2000 Two Disk $1599.00 $1225.00 
26-5104 Tandy 2000 One Disk & 10 Meg HD 2499.00 1885.00 
26-5111 Monochrome Monitor 199.95 165.00 
26-5112 Color Monitor . 599.95 510.00 
26-5140 Hi Res Graphic Monochrome Board 299.95 255,00 
26-5141 Hi Rec Color Graphics Chips.... 124.95 106.00 
26-5160 Internal 128K Memory Board .... 179.00 153.00 
26-5300 Lotus 123 495.00 420.00 
26-5311 Microsoft Multiplan . . . 195.00 166.00 
26-5320 Framework 695.00 590.00 
26-5352 dBase || (Data Base) §95.00 420.00 
26-5330 Multmate 205.00 


MODEL 200 COMPUTERS 


26-3860 24K Model 200 Portable Comp. . .. $999.00 $725.00 
26-3866 24K RAM Mem. Exp. Chip for 200 .. 249.95 210.00 
26-3804 AC Adaptor : 5.00 
26-3805 Accoustic Coupler 34.00 
26-3816 8K RAM Memory Expansion Chip . . 95.00 
26-1409 Printer Cable 12.70 
26-1410 Modem Cable .... 17.00 
26-3809 Briefcase bio 42.50 
26-3811 Soft Carrying Case for 100/200 .... 34.00 
26-1183 Bar Code Reader.... 85.00 
26-3806 Disk Video Interface 415.00 
26-3829 Multiplan ROM for 100 127.50 


MODEL 4 COMPUTERS 


26-1070 Model 4D 64K 2 Drive Computer . $1299.00 $ 995.00 
26-1122 64K Memory Expansion . . 69.95 65.00 
26-1127 Model 4 Internal Drive 1 399.95 385.00 
26-1123 Model 3 to Model 4 Upgrade Kit 399.00 385.00 
26-1084 Model 4P Modem Board . 149.00 95.00 
26-1085 Model 4P Travel Case. . 24.95 21.25 
26-1134 Model 4 Hard Disk Kit for 15meg . 79.95 67.95 
26-1530 Multiplan Model 4 . 199.00 169.00 
26-1595 Super Scripsit Model 4 . . . 199.95 169.00 
26-1635 Profile 4 Model 4.... 249.95 200.00 
26-2216 CP/M Plus Model 4 . 149.00 127.00 
26-2231 Double Duty Utility 58.00 


MODEL 12 & 6000 COMPUTERS 


26-4005 Model 12 80K 2 Drive Computer . $3999.00 $1350.00 
26-6021 Model 6000 512K 2 Drive Comp. . 4499.00 3125.00 
26-6022 Model 6000 512K 15Meg HD 5499.00 3795.00 
26-6014 Model 12 to 6000 Upgrade 1595.00 1325.00 
26-6015 Model 6000 512K Memory Board. 1095.00 905.00 
26-6019 Model 6000 256K Memory Kit ... 199.95 185.00 
26-6017 Card Cage for Model 12 169.00 
26-6052 DT-100 Data Terminal .... 600.00 
26-4155 15 Meg Hard Drive Primary 1355.00 
26-4171 35 Meg Hard Drive Primary . 2545.00 
26-4157 Installation Kit for Primary HD... 349.00 295.00 


All prices and offers may be changed or withdrawn without notice. Advertised 
prices are cash prices. C.O.D. accepted ($10.00 charge per carton on C.O.D. 
Call for further C.O.D. information.) M.C., Visa, AX, add 2%. All non-defective 
items returned will be subject to 10% restocking fee. Defective items require 
return merchandise authorization. Call for R.M.A. Number before returning. 
Delivery is subject to product availability. 





ais FEF” 
OO 
OM 


ooo LELO M PLUR ERE 











CALL 
1-800-248-3823 


RADIO SHACK PRINTERS M | 









































26-1276 DMP-105 Dot Matrix Printer ..... $ 199.00 $ 169.00 
26-1275 TRP-100 Portable Thermal Printer 299.00 230.00 
26-1280 DMP-130 100 cps Tri. Mode Printer 349.00 285.00 
26-1268 CGP-220 Color Ink-Jet Printer 699.00 595.00 
25-1257 DWP-220 Daisy Wheel ......... 599.00 ` 460.00 
26-1277 DMP-430 24 Wire Matrix Printer.. 899.00 745.00 
26-1270 DWP-510 43 cps Daisy Wheel ... 1495.00 1225.00 
26-1274 DMP-2100P 24 Dot Wire Matrix .. 1995.00 1650.00 
26-1279 DMP-2200 HiSpeed Matrix Printer 1695.00 1440.00 
26-1269 PT-64 Printer Controller 249.95 210.00 
26-1498 SW-302 Printer Switch ......... 119.95 100.00 
26-1477 Auto Sheet Feeder for DWP 510.. 499.95 420.00 





TANDY 1200 


25-3000 Tandy 1200 One Disk & 10 Meg HD $1999.95 $1525.00 


25-3010 VM-3 Green Monitor........... 219.95 185.00 
26-3212 CM-2 Color Monitor ........... 459.95 390.00 
25-3040 Monochrome Display Adapter 219.95 185.00 
25-3043 Graphics Display Adapter 299.95 255.00 
25-3044 Graphics Master ........... .. 695.95 540.00 
25-3061 Captain Multifunction Board ..... 599.95 475.00 
25-3130 MSDOS/BASIC .... xs 89.95 76.50 
25-3170 Wordstar Professional 395.95 335.00 
25-3160 Framework 5.2 serere 695.95 590.00 
2659481 PEST 1. dnos zero Agge 140.95 119.00 


25-3190 dBase Ill . 590.00 

























25-1000 Model 1000 128K 1 Disk Drive ... $ 999.95 $ 775.00 


25-1001 Model 1000 384K 10Meg HD.... 1999.00 1525.00 
25-1004 Memory Exp 128K 1000/1200 . . 239.95 205.00 
25-1005 Disk Drive Expansion 1000...... 199.95 170.00 
25-1006 RS-232C Interface 1000/1200... . 99.95 85.00 
25-1007 Hard Disk Control Board ....... 299.95 255.00 
25-1013 Modem 1200 Option 1000/1200 .. 299.95 230.00 
25-1025 10 Meg Hard Disk............. 699.95 X 559.00 
25-1501 MS-DOS Reference T-1000..... 34.95 29.00 
25-1502 BASIC Reference T-1000 ....... 34.95 29.00 
26-3211 VM2 Green Monitor ........... 149.95 125.00 
26-3212 CM? Color Monitor............ 459.95 390.00 









EPSON/COMREX PRINTERS 


20001015 Homewriter10.............. $ 288.00 $ 230.00 









20001025 LX-80 Dot Matrix Printer ...... 299.00 250.00 
20001035 FX-85 Dot Matrix Printer . . 499.00 385.00 
20001040 JX-80 Color Dot Matrix Printer .. 699.00 485.00 
20001050 HI-80 4 Pin Plotter ........ A 599.00 390.00 
20002010 RX-100 Dot Matrix Printer. ..... 499.00 400.00 
20002030 FX-185 Dot Matrix Printer. ..... 699.00 525.00 
20003010 LQ-1500 18 Pin Head with Intf.. 1495.00 1095.00 
20003510 CR-IIE Comrex Com Riter . 499.00 370.00 
20001510 FX-80 Tractor Feed .......... 39.95 34.00 
20004080 NLQ Parallel Intr ............ 209.95 175.00 


20001515 LX-80 Tractor Feed .... 40.00 





For Technical Questions and Information on our complete line of 
computer accessories and current prices. 


CALL 1-517-625-4161 
FOR ORDERS ONLY CALL 1-800-248-3823 


124 S. MAIN ST, PERRY, MICH. 48872 





operations and to transfer files. With 
remote Script you have the option to 
control logon, read files and directories, 
create, erase and rename files. 

Other scripts that have been supplied 
by Mlink include: “EMS” — a simple 
electronic mail system that allows you 
to create and edit mail messages with 
other computers running EMS. “RUN” 
gives the user the ability to run pro- 
grams while still on line. “SCHED” will 
perform a script at a scheduled time 
of the day in order to take advantage 
of less expensive telephone time. 

With my superficial examination, I 
was very impressed with the ease of use, 
the well written documentation and the 
flexibility of Mlink. This could be the 
only communications package that a 
user would need. If you are either 
looking for a package for simple 
communication tasks, or a sophisti- 
cated package to handle the needs of 
a client, M/ink will probably be worth 
your future attention. 


(Corporate Microsystems, Inc., P.O. Box 
271, Etna, NH 03750, 603-448-5193, Devel- 
opment System $250, Run-time $195) 


— Lester Blank 


Software 1000/1200/2000 


Etch-a-Mouse 
Found to be 
a "Fun Toy” 


Every now and then you look at a 
package that you can't help thinking 
has a lot of potential if only the authors 
had done ... This is exactly the case 
with Etch-a- Mouse. The package is a 
good start of a program but is just that, 
a start. 

Etch-a- Mouse is a drawing program 
that utilizes the Digi-Mouse and the 
outstanding color of the Tandy 2000. 

The documentation consists of thir- 
teen pages stapled together. There are 
several minor errors and ommissions in 
the documentation, but anyone with a 
little experience with MS-DOS should 
be capable of figuring it out. The 
documentation for the most part is 
fairly clear and accurate. 


You initiate the package by executing 
a batch file. The file copies the program 
files onto your disk and also sets up 
a RUTOEXEC . BAT file for future use. The 
batch file also establishes a new prompt 
character. After the initial start up 
procedure you are shown a menu 
consisting of two options, setup colors 
and run program. If you choose the 
setup option, eight open blocks and 
eight color blocks are displayed. The 
idea is to use the mouse to choose eight 
colors out of the sixteen that are 
available for the Tandy 2000. You 
accomplish this by moving the cursor 
to the color you want in the bottom 
row and clicking the right button on 
the mouse to pick up your chosen color. 
You then deposit it in one of the open 
blocks in the top row; the left button 
on the mouse switches in the alternate 
shade, thereby giving you the choice of 
the sixteen different colors. This 
procedure can be avoided by using the 
default colors which are also the same 
colors for Tandy's CGP-220 Ink-Jet 
Printer. You have to be careful which 
colors you pick during the setup process 
because once you're in the drawing 
mode there isn't any way of changing 
them. After you have chosen your 
colors you are shown a title screen that 
is drawn painstakingly slow. 

You then enter into the drawing 
mode. There will be two blocks in the 
lower left-hand corner of the screen; one 
block tells you which color you have 
selected by clicking the left mouse 
button. The other block tells you if the 
color has been turned on by clicking 
the right mouse button. The mouse 
ratio of screen to table-top movement 
has been preset to an area of approx- 
imately a sheet of paper and is non- 
adjustable. There is an on-line help 
facility, although it did not work. A call 
to Soft Horizons indicated that the bug 
had been corrected. I also asked them 
if they are planning to revise the 
program to allow you to be able to 
insert text or if they were planning to 
provide any provisions to allow you to 
load a drawing into a basic program. 
They said that, "there were not any 
revisions planned at this time." 

The program has several commands 
available for drawing, there is a line 
command, box command and circle 
command. There is also a fill command 
and paint command. There is a com- 
mand called “fat mode” that allows you 
to determine your line thickness. This 
is accomplished by drawing a series of 


circles one after another; the problem 
with this is that if you move the mouse 
too fast the line is not solid. Another 
problem with fat mode is that you can 
not use the line command to draw a 
line from one point to another. There 
are also commands to flip the cursor 
up or down and to save or recall your 
work from disk, provided you have 96K 
available for each drawing. The draw- 
ing commands work by the user's 
marking a starting location for a line 
and by moving the mouse to the end 
location of the line. The line is then 
drawn between these two locations. 

The first location is shown as coor- 
dinates at the bottom of the screen, 
however the end location is not shown. 
You therefore have to guess to be able 
to draw a straight line. 

The circle command that is men- 
tioned in the instructions, although not 
described, apparently works by your 
marking the center and outside radius 
of the circle. 

You have the ability to save and recall 
your work, but if you try to recall a 
drawing and forget the filename, you 
get stuck in the recall command with 
no way out but to re-boot your system. 

The program for the most part uses 
lowercase letters except for fat mode 
which uses uppercase. This may not 
seem like a problem until you switch 
to fat mode and forget to hit the shift 
key and enter a lowercase ‘f’. This will 
access the fill command, fill your 
drawing with some color and render it 
useless. This can be very frustrating if 
you have been working on a drawing 
for several hours. 

The disk includes two demonstration 
drawings that are quite amusing. 


The Bottom Line 

Etch-a- Mouse is easy to use once you 
get through the initial copying and color 
setup routine. My 6-year-old son had 
no problem using the program, and 
thought it was a fun toy. However, for 
any type of serious business use I can 
not recommend it. There is no provision 
for inserting text into a drawing nor 
for adding any drawing you have made 
into an existing program. Etch-a- 
Mouse has a lot of potential but at this 
point, it is not much more than a fun 
toy. 
(Soft Horizons, Rt. 1 Box 432, State Hwy. 
83, Cape May Court House, NJ 08210, 
$39.95) 


— Tim Frost 
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Software 


Project Scheduler 
Helps You Follow 
the Critical Path 


For those of you involved in project 
development, the song "The Long and 
Winding Road” has a special meaning. 
Often it seems that in the development 
of a complex project you can't get from 
here to there. 

My job involves the development and 
introduction of new products. Since 
they are to be sold as consumer 
electronic products, the list of jobs that 
have to be completed prior to intro- 
duction is extensive. Without careful 
planning, the product ends up ready to 
ship without packaging or an instruc- 
tion manual. 

To assist Model 100 owners in project 
development, Tandy has released a 
program titled Project Scheduler. 
Designed to help you maintain control 
of even the most complex project, you 
divide a large project into smaller 
individual tasks with specific time tables 
and interdependencies. These jobs 


define all the activities necessary to 
complete a project. 

You can choose days or weeks as the 
time unit measurement for each project. 
Each project can have a maximum of 
49 jobs, and every job can have up to 
99 time units in length. Every job can 
be defined with as many as four 
prerequisite jobs. 


Using all this information, Project 
Scheduler calculates the final comple- 
tion data and highlights "critical path" 
jobs. The entire project schedule can 
be printed in either graph or table form 
for easy distribution and record 
keeping. 

After the project has been entered, 
changes, additions, deletions and 
insertions can be made. The program 
automatically recalculates the schedule, 
revising the critical path and comple- 
tion date accordingly. 

To use this program, a Model 100 
with a minimum of 24K of memory is 
necessary. Tandy states that the pro- 
gram can be saved in memory if you 
have 32K; however, unless you are 
willing to dedicate your Model 100 to 
this project, it is more sensible to load 
the program and the file or files 
pertaining to a particular project, 
update or print your current status, save 
the data to tape and kill the program 
and files, thus freeing up the memory 
of you computer for other uses. 

Project Scheduler has two sets of 
functions. These are listed at the bottom 
of the project schedule graph screen. 


You have the option of selecting the 
various functions either by pressing the 
function keys or the first alpha letter 
of the desired function. 

The functions available are: 


Add: Add a job to the project. 
Insert: Insert a job in the project. 
Project: Display the project status. 
Update: Update the job details. 
Move: Move the position of a job in 
the schedule graph display. 
Delete: Delete a job from the project. 
Save: Save the file to a cassette tape. 


To activate the second set of function 
keys, the TAB key is pressed. These 
commands are: 


Complete: Mark completion (full or 
partial) of a job. 

Graph: Print the schedule graph. 

Table: Print the schedule table. 

Prereq: Print a prerequisite report. 

On both function key sets, F8 returns 
the user to the menu. 

Because of the size limitations of the 
display screen, the graph for the project 
will overflow the display screen. What 
you see is a section of the graph (a 
window) much like one would see when 
using a spreadsheet. You use the arrow 
keys to move the window around the 
graph, or you can print the entire graph 
to analyze the various jobs, when they 
start and how they interrelate with each 
other. 

Once Project Scheduler is loaded, 
separate files are created for each 






















Twelve programs for one low price, work 
together to give the TRS-80 Model 100 unique 
disk file handling abilities. Access disk files 
from menu, just like a RAM file. Commands 
you were tediously typing become simple 
function key selections. And that's just part of 
the power of the DISK-BUDDY PAK. It does 
things you can't: 


* Create “superfiles” the length of the disk, 


over 170,000 bytes! 


* Print out, or display on either screen, or 
copy to disk or other device, a disk data file 
of any length, WITHOUT USING ANY 
ADDITIONAL RAM! 


* Furthermore, transfer records can be "fil- 
tered”, an example: 


An address file on disk can contain more 
than 1300 entries. You can move to 
RAM, or screen, or printer, etc., those 
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Civilize the DISK/VIDEO INTERFACE + MAKE SAVAGE THE MODEL 100 
With DISK-BUDDY software for your DV/I, only function keys need touch your disk files! 


Son 211 3) À; Æ VG NR 
DE/RUN Í 





Aba URP COPY RUN NAME KILL Bed ERIT 


records which contain "California" and 
"Tennis" or whatever. Four logical 
modes of search are available. 





* Also: Features to run, load, save, sort, kill, 
measure, append, and name, disk files and 
RAM files, and much more. 


PCM Magazine (March, '85) said: “. . . an 
excellent buy” "manual is extremely 
well written" "will substantially 
increase the speed and ease of operation of 
the M-100 with the D/VI." 


That was the idea in the first place. d 


TO ORDER THE DISK-BUDDY PAK 
(disk and manual): Send name, address, 
and check or money order for $39.95 plus 
$2.00 postage and handling to the address 
below. (For COD's call: 212-243-2129) 


BuddySystems 


220 West 24th Street 
New York, NY 10011 


sd 


project. The 30-page users manual 
walks the new user through the oper- 
ations necessary to create a schedule. 
Although this program is useful in 
graphically illustrating the time lines in 
a project, it does not know the jobs 
which have to be involved in your 
project. To get maximum use from the 
program, some homework is necessary 
prior to using the program. 

The accuracy of the resultant graph 
is only as accurate as the data fed into 
it. If packaging is going to take six 
weeks, the Model 100 is not smart 
enough to correct you if you optimis- 
tically enter four weeks. Nor will it catch 
you if you try to complete the packaging 
before a prototype is completed. It does 
not test your logic, only calculates the 
combined time line and shows the 
results. 

I was pleasantly surprised to discover 
that this program was available for the 


Model 100. This type of program has 
been available for the desk-top business 
computers, but the advantage of having 
it available for the 100 is the simplicity 
of operation and the advantage of 
portability. There are many times when 
I am away from my desk and would 
like to review a project's status, or 
determine the need of overtime work 
premiums to advance the schedule of 
a project to meet a deadline. 

In project management one quickly 
discovers that the addage, "time is 
money" is accurate. If you want to cut 
time, add money. If the magic silicon 
genie were to grant me one wish for 
this program, it would be the ability 
to add the cost of each job of the project 
with the totals displayed. As the job 
is completed it would indicate if the 
project is coming in over or under 
budget, and let me analyze the effects 
of rush charges vs. the time line. 


For my purposes, I have found 
Project Scheduler to be a very usable 
program. Both the graphed and the 
printed reports are very readable even 
by those not familiar with the program. 
There is something so official about 
seeing å report printed on a dot matrix 
printer. The impact of the graph 
showing completion beyond the due 
date is great! 

If you are involved with projects 
requiring multiple tasks which are 
interdependent on each other for 
completion, Project Scheduler is worth 
a trip to your local Radio Shack 
Computer Center for a look. It may 
save you some unpleasant surprises in 
the future. 


(Tandy, available in Radio Shack Computer 
Centers nationwide. $39.95 requires 24K) 


— Bruce Rothermel 





Software 1000/1200/2000 


Payroll Made Simple 
With Payday 


As any small business owner readily 
knows, maintaining a payroll consumes 
precious bookkeeping time. Less time 
spent on the payroll and more spent 
on production or service means more 
profit. To help streamline the whole 
payroll process, Heath Research of 
Virginia Beach, Va., has introduced 
Payday. 

Payday is an automated payroll 
system specifically designed for small 
businesses. It will run on any MS-DOS 
or PC-DOS computer with a minimum 
of 256K RAM and two disk drives or 
a hard disk. The program is completely 
written in BASIC. 

Because the program is designed for 
the small business, there are four 
qualifications, as stated in the manual, 
that must be met in order for Payday 
to be useful to you: 

1) "Your firm writes paychecks on 
a weekly, bi-weekly, semi-monthly or 
monthly basis." 

2) "Your company does not pay any 


employee $100,000 or more in any 
individual pay-period.” 

3) "Your company spends less than 
one million dollars on total gross wages 
for any individual pay-period." 

4) "Your firm's total yearly payroll 
is less than ten million dollars." 

The above stipulations should satisfy 
the requirements of many small busi- 
nesses — a definite plus for the pro- 
gram's applicability. 

Payday is a menu-driven package. 
When the program is first booted, the 
main menu, called “Central Control," 
is displayed with five options: 

(CP) COMPANY PROFILE 

(PF) PERSONNEL FILES 

(PP) PRYROLL PROCESSING 
(RG) REPORT GENERATOR 

(EP) EXIT “PAYDAY’ Program 

For the initial setup, the *Company 
Profile" option must be chosen so that 
vital information about your company 
can be recorded, such as name, location, 
pay period, FICA withholding percen- 
tage and the names of individual 
departments within the company. The 
program allows for up to six different 
departments. Also, there is an option 
that allows you to configure the system 
for flexible disks or a hard disk. 

Any or all of the initial information 
can be edited, including the FICA per- 
centage withholding value, so any 
alterations, even after the data has been 
recorded, can be changed without 
destroying previous payroll informa- 
tion. In fact, any information can be 


changed and rechanged during a single 
session with the system. 

Once the Company Profile informa- 
tion is completed, a list of employees 
mus* be entered via the "Personnel 
Files" option, PF, from Central Con- 
trol. The Personnel Files menu lists 
seven selections: 

(AN) ADD NEW employee’s file to 
our records 

LEAF THROUGH existing 
employee files 

Print PAPER COPY of all or 
some employee files 

Print employee MAILING 
LABELS 

SEARCH for a file by an 
employee's last NAME 
SEARCH for a file by an 
employee’s FILE H 

(CC) Return to CENTRAL CONTROL 

After AN is chosen, the program asks 
for information about the employee: 
name, address, telephone, Social Secur- 
ity Number, pay-period wage, FICA 
withholding, federal withholding, state 
withholding, withholding status (single, 
married and the number of depend- 
ents), department, and control number. 
All of the information must be entered 
except for the control number. This is 
an optional entry depending on whether 
your company assigns identification 
codes to employees. 

After all the employee information 
is entered, the Personnel Files menu is 
redisplayed. From the menu, tbe 
program allows various options for 


(LT) 
(PC) 
(ML) 
(SN) 


(SF) 
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working with the employee roster. 
Changes in any or all employee infor- 
mation can also be made, including the 
employee's current status, active or 
inactive. Besides having a detailed data- 
base, the wage and tax information is 
used by the program to automatically 
compute each individual's pay during 
the "Payroll Processing" option of 
Central Control. 

The Payroll Processing section of 
Payday is easy to use. After PP is 
entered from Central Control, the 
“Payroll Processing Active Employee 
Roster" is displayed, listing all the 
active employees. Each employee is 


numbered according to the order in 

which they were originally entered. 

Below the roster are five options for 

processing the payroll: 

(H) Begin accepting this 
employee's current payroll 
data 

(HC) CHANGE Active/Inactive 

status of this employee 

BEGIN PRINTOUT - All data 

for this pay period has 

been entered 

Turn to NEXT PAGE for addi- 

tional employee listings 

No payroll has been entered 

- return to CENTRAL CONTROL 


(BP) 


(NP) 


(CC) 


SU CUSTOM SOFTW/ARE 


for your MODEL 100 or 


NEC PC 8201A 
CBUG 


CBUG is the ultimate debugging utility for your lap computer. Requires less than 
3K RAM. 10096 machine language. Features include: 


e Instruction Step 

* Call/Instruction Step 
* Zero/Fill Memory 

* Load Data 

* Alter Registers 


* Dump Memory & Registers 
* Search/Replace 

* HEX math (+ & —) 

* Decimal — HEX conversions 
* Display in HEX or ASCII 


RENUMBER 


The utility you've been waiting forl Now you can renumber your BASIC 
programs IN PLACE! This powerful, 10096 machine language program is 
relocatable to any convenient place in memory. Requires less than 3K RAM. 
Renumber all or part of a program. You specify line numbers and increment. 


$24.95 


LET'S PLAY MONOPOLY* 


It's you against the computer and the computer is a tough competitor. Super fast 
machine language graphics display the whole board at all times. The computer 


makes all its own decisions. You're really going to love this game. 


$29.95 


ASSEMBLER 


A powerful 8085 assembler for your lap computer. Recognizes all the standard 
pseud-ops. Immediate data may be in decimal, hex or ASCII. Relocatable to any 
convenient place in memory. Several built-in Macros make your programming 
easier. FASTI Written in 10096 machine language and requires less than 3K RAM. 


$32.95 


MELODY MAKER 


A musical program generator. Use simple cursor controls to enter sheet music. 


Melody Maker writes a program to play 


Maker to add musical routines to your own programs. 


the song. You can even use Melody 
$19.95 


CUSTOM SOFTWARE 
e 1308 Western * Wellington, Kansas 67152 * 
316/326-6197 


Please include $1.00 for shipping. For orders 
outside the U.S., include sufficient postage 
for airmail delivery. U.S. funds only. 


MasterCard... 


*Monopoly is a trademark of Parker Brothers 
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Each employee's payroll must be 
computed individually. This is done by 
going through the employee list, one 
by one, and entering the number 
associated with each person. After the 
desired number is entered, a summary 
screen appears giving all the informa- 
tion concerning that employee. At this 
point any or all the information about 
the employee can be altered before his 
pay period is entered. You may also 
choose to enter the pay information 
manually or have it automatically 
computed from the personnel file data. 

When everything is entered, the 
screen is cleared and the program asks 
for the hours worked for the pay period 
if the employee is on an hourly rate. 
Overtime and the overtime rate and 
special deductions are entered, if any. 
Once completed, the program automat- 
ically computes the payroll for that 
employee, including FICA, federal, and 
state withholding taxes. A time-saving 
feature of the program is its built-in tax 
tables, both federal and state. These 
tables are inaccessible through the 
program, but if changes do occur in the 
tax regulations and rates (state or 
federal), Heath Research will provide 
a tax table update diskette for a fee of 
$12. 

After each employee's payroll is 
computed, the information is recorded 
and the Payroll Processing menu is 
again displayed, allowing you to choose 
another employee. As each employee's 
pay period is completed, the employee's 
name is deleted from the roster — a 
helpful feature if one is working with 
a large employee list. When the entire 
payroll is completed, a printout must 
be obtained in order to see the com- 
puted pay information: pay period, 
gross wages, withheld taxes, miscellane- 
ous deductions, and net wages. If any 
of the information is incorrect, you 
must reprocess the payroll. 

The last option of the Central 
Control menu is the *Report Genera- 
tor." Its menu allows six different 
reports to be printed: 

(PP) Individual PRY PERIOD 
Report 

COMPREHENSIVE Pauroll 
STRTEMENT 

MONTHLY Payroll REPORT 
QUARTERLY Payroll REPORT 
(YR) YEARLY Payroll REPORT 
(H2) End-of-uear W2 forms 

Each of these reports is invaluable 
in keeping track of your payroll. In 
particular, the W2 report is helpful in 
that it will actually fill out the W2 forms 


(CS) 


(MR) 
(QR) 














on the printer, using blank W2 forms 
on continuous-form computer paper. 

The *Comprehensive Payroll State- 
ment" is also a good managerial tool. 
It is a hardcopy of the company payroll 
broken down department by depart- 
ment. In addition, a chart is printed 
comparing the gross payroll of each 
department within the company and the 
year-to-date totals of each department 
to the previous year's totals. These 
reports are generated automatically and 
are the best feature of Payday. 

Since the program does not use any 
special printer graphics, almost any 80- 
column printer can be used for the 
reports. Also, it isn't necessary to have 
a graphics board installed; the screen 
displays are presented in standard 
characters. 

The instruction manual, a three-ring 
loose-leaf binder, is concise and guides 
you easily through the operation and 
functions of the program. At the back 
of the binder are tabbed sections where 


the printed payroll reports can be stored 
— a convenient feature. 

The program does, however, have a 
few pitfalls. One missing feature is the 
lack of screen displays of the reports. 
Having to print out the entire payroll 
to check for errors is a serious draw- 
back. It would have been more con- 
venient to view the entire payroll on 
the screen before getting a hardcopy. 
Also, the program can only accommo- 
date one miscellaneous deduction item, 
which limits the applicability of the 
program to firms with retirement, 
savings, or other programs that require 
more than one deduction item. 

Despite these disadvantages, Payday 
is a fast, easy-to-use system that should 
fill the payroll needs of your small 
business. 


(Heath Research, 3841 Croonenbergh Way, 
Virginia Beach, VA, 23452, $125) 


— Ralph Rideout 





Software 1000/2000 


PC Privacy: Personal 
and Confidential 


In these days of whiz-bang multi- 
function programs that try to be 
everything to all people, it is refreshing 
to find a program which does one thing 
and does it well. PC Privacy by MCTel, 
Inc. protects the sensitive information 
you have painstakingly stored on 
computer media. It does its job thor- 
oughly and quickly, and it couldn't be 
easier to use. 

If you're like most computer users, 
you are probably unaware of how easy 
it is for anyone with even the most 
rudimentary knowledge of MS-DOS to 
gain access to the information stored 
in your computer's files. If you keep 
files such as employee records, financial 
projections, or even a database file 
containing names, addresses and tele- 
phone numbers of clients, prospects and 
others you do business with, a compet- 
itor or malicious employee can usually 
discover more than they should know 
with a simple TYPE, PRINT or DEBUG 
command. 

If your files are all on floppy disks, 


you can gain some measure of security 
by locking them in a safe or otherwise 
restricting access to them, but if you 
use a hard disk, you are particularly 
vulnerable because your files are always 
in the computer. Even if you delete a 
file using ERRSE, the information in that 
file is not actually deleted until you 
overwrite it by saving a new file. I once 
worked for a firm whose hard-disk PC 
went out for repair and was temporarily 
replaced by a loaner. To everyone's 
surprise, the loaner arrived loaded with 
the previous owner's programs and 
datafiles. What no one realized at the 
time was that our hard disk could just 
as easily find its way into someone else's 
computer. 

PC Privacy helps to solve the 
dilemma of file security by thoroughly 
scrambling your files and making them 
undecipherable to anyone who doesn't 
have the proper "key." The program 
disk contains three small programs: 
Encrypt, Decrypt and Purge. Each of 
them is straightforward and easy to use. 
To encrypt a file, you simply type 
ENCRYPT, the name of the file you want 
to encrypt and a phrase which acts as 
the key. To decrypt the file, you simply 
type DECRYPT, the name of the file you 
want to decrypt and the same phrase 
which was used to encrypt it. Any other 
key will fail to unscramble the file. 

The entire process is quick, simple, 
and very effective. You must, of course, 
be careful not to forget the key used 
to encrypt the file, or you will have no 
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PRICE 
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$3.00 
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way of decrypting it. The short manual RARES 1000/1200 


which comes with the program warns 
that not even MCTel can decrypt the 
file. I don’t know that it is absolutely 
impossible to crack the encryption 
process, and I would hesitate to entrust 
any national security secrets to the 
program, but for everyday use it 
certainly seems effective enough. 

I timed the programs on my 2000 with 
a hard disk. The smallest file (4 bytes) 
was encrypted and decrypted almost 
instantaneously, in under two seconds. 
A 640,000-byte file required about five 
minutes, and a medium-sized file of 75K 
took only 40 seconds. The encrypted 
files were generally about one-third 
larger than the originals, with the length 
of the key having no apparent effect 
on encrypted file size. 

The Encrypt program will not allow 
you to enter the same filename for the 
encrypted file as the original, preventing 
you from overwriting it by mistake. 
Decrypt, on the other hand, will allow 
you to overwrite an existing file, but 
warns you before doing so, and gives 
you a chance to change your mind. 
Neither program will accept illegal 
filenames. The third program, Purge, 
allows you to completely erase an 
encrypted file, so no trace of it remains 
on your disk. 

Two other points show the care which 
went into designing PC Privacy. First, 
after you type in the key used for 
encrypting, the program scrolls the 
screen up, preventing anyone walking 
by from seeing the key while you are 
encrypting a large file. Also, the 
encrypted file does not contain any 
unprintable control characters. If you 
transmit files by modem regularly, you 
are probably aware that many pro- 
grams store their data in a way that 
prevents them from being transmitted 
unless you use a special protocol. Files 
encrypted with PC Privacy need no 
special handling and may be transmit- 
ted as straight ASCII files. Thus, the 
receiving end needs only its own copy 
of PC Privacy (and, of course, the key) 
to be able to use your Wordstar, Lotus 
1-2-3 or other files. 

If the security of your information 
is important to you, I recommend you 
evaluate PC Privacy for your needs. 


(MCTel, Three Bala Plaza East, Suite 505, 
Bala Cynwyd, PA 19004, 215-668-0983, 
$140) 


— V. Scheluchin 





Magic Menu: A 
Time-Saving 
Program Manager 


It seems like every office or home 
with a computer also has a person to 
whom everyone goes with questions: 
“Tell me just once more: how do I load 
the word processor?”; “But how do I get 
the printer into correspondence 
mode?”; “What’s a directory?” If you 
are that person you might want to 
consider Magic Menu by DeereSoft. 

Using Magic Menu, the person who 
is tired of coming up with all of the 
answers can create a system of menus 
which will allow the more casual user to 
select and execute any of over 1,000 
programs without having to deal with 
the dreaded DOS or open a manual. 

Hardware requirements call for an 
IBM PC or compatible with two dual- 
sided floppy drives or one dual-sided 
floppy and one fixed drive, 128K, and 
PC or MS-DOS 2.0 or higher. The 
manual indicates that the program is 
also supported on the Tandy 1000 and 
1200HD, and is 98% compatible with 
the Tandy 2000. 

The program comes on a single-sided 
diskette which is not copy protected. It 
actually consists of two programs: 
Magic Menu and Magic Menu Editor. 
While Magic Menu insulates the user 
from DOS, the editor which creates the 
menus requires a firm grasp of the 
operating system. This is compounded 
by the fact that the documentation, 
while well-written and attractive in its 
three-ring format, is somewhat brief. A 
text file on the diskette expands upon 
the printed documentation, and should 
have been incorporated in the manual. 
Using both of these sources, I still found 
considerable experimentation neces- 
sary to fathom some aspects of the 
editor. 

DeereSoft indicates that Version 2.0, 
which is now being shipped, includes 
expanded documentation which may 
well eliminate this criticism. If you are 
willing to spend some time to master the 
editor, you should find Magic Menu a 
powerful system. 

The display is designed for use with 








a color monitor, and foreground, back- 
ground and border colors can be se- 
lected. My Tandy 1200HD with mo- 
nochrome monitor and color/mono 
graphics board produced a satisfactory 
display without modification in all 
respects but one: data entry. The pro- 
gram interrogates the system, and, 
finding a graphics board, assumes a 
color monitor. The foreground/back- 
ground combination used for data entry 
produces no display on a monochrome 
monitor. The addendum briefly sug- 
gests modifying a configuration file on 
the disk to override the offending color 
combination, but I had no better results 
after the suggested modification. Deere- 
Soft indicates that this problem has also 
been solved in Magic Menu 2.0. 

To get the most out of Magic Menu, 
the RUTOEXEC . BRT file should be mod- 
ified to route the user directly into the 
menu system. Following power-up, the 
first menu screen (created by the editor) 
appears. Selection of an entry from a 
menu screen will have one of several 
designated results. Selection from a 
menu can result in the display of a 
subsequent menu. For example, the 
selection of *Word Processing" from a 
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menu screen could result in the display 
of a menu with several word processing 
programs to choose from. Selection can 
also result in the execution of a program 
or batch file, preceded by a change in 
directory if necessary. When the pro- 
gram called from the menu system is 
ended, the user is returned to the menu 
system. The result of a selection can be 
the display of a message or prompt, the 
output of a character string to a device 
(to change the printer to correspon- 
dence mode, for example), or the exe- 
cution of a DOS command. The last 
result available is to define a system- 
wide variable, much the way parameter 
passing is used within DOS batch files. 

Another type of menu screen availa- 
ble is sequence screen. Rather than 
displaying choices, this screen executes 
a series of entries automatically. Thus, 
the menu screen for a particular word 
processor could include selections for 
draft or correspondence modes. Choos- 
ing one of these would activate a se- 
quence screen which would send a 
character string to the printer to set the 
right mode, and then execute the word 
processing program. 

Password protection can be placed 
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on any selection on any screen, and can 
also be applied to the return-to-DOS 
function F10. Since the user may CTRL 
ALT DEL to DOS and use the Magic 
Menu Editor to view (or change or 
delete) the passwords, this protection 
will only stop inexperienced users. 
Version 2.0 encrypts passwords, but this 
still cannot prevent the alternate meth- 
od of returning to DOS, 

After using the editor to modify the 
menu system, the menu definition file 
must be copied from the MAGICM direc- 
tory to the root directory where it will 
be used by Magic Menu. One must 
return to DOS to accomplish this, or 
create a menu selection to handle the 
copy routine as I did, but it would be 
more convenient to be able to perform 
this task from the editor. 

Once the complexities of the editor 
have been mastered and a menu system 
has been created, Magic Menu is a 
breeze. Anyone should be able to 
choose their way through the menu 
screens and execute the program they 
want without coming to you with "How 
do I...?” The more experienced user 
can skip directly to the desired screen 
and selection without following the 
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Complete Accounting Software 





Including Payroll for $15 per module 


101 Profitable Reasons To Buy MCBS 


Accounting Software! 


General Features 


1) Menu Driven System 

2) Integrated or Stand Alone 
3) Simplified Installation 

4) Complete Audit Trails 


5) Data Files can be accessed by Lotus, 


dBase, etc.* 

6) Manuals on diskettes, print them on 
your printer. 

7) Modules can be purchased 
separately. 

8) Accounts and transactions limited 
only by disk space. 


General Ledger 


9) Supports multiple departments 

10) Flexible chart of accounts. 

11) Prints financial statements in 
flexible, user defined formats. 

12- Prints Income Statement and 

17) Balance Sheet by current month, 
current quarter, and 3 previous 
quarters. 

18- Prints Departmental Income 

23) Statement and Balance Sheet by 
current month, current quarter, and 
3 previous quarters. 

24- Prints Budget Comparison 


25) Income Statement and Balance Sheet 


comparing Actual vs. Budget with 
variances and ratios. 
26- Prints Trial Balance and Chart 
27) of Accounts 


28) Prior Period Adjusting Entries do not 


impact current results. 

29) Data Entry screen displays 
beginning, current and ending 
balances as well as the last 10 
entries. 

30) System allows new accounts to be 
created during data entry. 


Accounts Payable 


31) Provides for entry, updating and 
deletion of vendor information. 

32- Allows entry, editing and posting 

33) of payables, adjustments, 
cancellations and prepaids. 

34- Prints the Open Item & Cash 

35) Requirements reports. 

36) Allows partial payments. 

37) Prints A/P checks 

38) Prints Check register. 

39) Prints the A/P distributions to the 
General Ledger 

40) Prints the vendor anaylsis report. 

41) Interfaces to MCBS' General Ledger 
or may stand alone. 


Accounts Receivable 


42) Provides for entry, updating and 

deletion of customer infomation 

Allows entry, editing and posting of 

receivables, credit memos, cash 

payments. 

44) Allows up to 99 repetitive line items 
for fast invoicing. 

45) Prints the open item and aged 
receivables reports. 

46- Prints Invoices. Credit Memos 

48) and Statements. 

49) Prints Sales Analysis. 

50) Supports Partial Payments 

51) Prints Invoice, Payment and Credit 
Memo Registers. 

52) Interfaces to MCBS' General Ledger 

or may stand alone. 
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Payroll 
with State & Local Taxes 
53) Provides for entry, updating and 
deletion of employee information. 
54- Handles hourly, salaried or 


56) commissioned employees on weekly. 


biweekly, semi-monthly or mothly 
pay periods. 

57) Calculates Federal, State and Local 
Taxes. 

58) Allows user to maintain all tax 
tables. 

59) Maintains payroll history. 

60) Calculates the payroll. 

61) Prints the payroll register, check 
register and deductions register. 

62) Prints payroll checks. 

63) Provides for after-the-fact payroll 

64- Provides W-2's, 1099's , 


Inv 
with Order Entry & Purchase 
Orders 


68) Uses for LIFO and Standard Cost. 
69) Provides for Inventory item entry. 
updating and deletion. 
Provides for order entry and editing 
with inventory update during entry. 
71) Stock and non-stock items. 
72) Handles purchases, returns, 
shipments and adjustments. 
Prints invoices, credit memos, 
picking tickets, purchase orders, 
price lists and shipping labels. 
74) Prints on preprinted forms or plain 
paper. 
75) Prints stock status report and 
purchasing advice reprot. 
76) Full back order retention. 
77) Quarterly, yearly and prior year 
inventory history. 
78) Performs book to physical analysis. 
79- Over 20 management reports 
99) including extensive Sales Analysis 
and Lost Sales Report. 
100- Interfaces to MCBS' General 
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101) Ledger, A/R, A/P or may stand alone. 





Any Module For $15 ea. 
Or All 5 For $50 Total 
TO ORDER CALL: 
1-800-334-0854, Ext. 826 


For More Information: 
call (713) 444-6269 





MCBS 


and 941's 
67) & prints quarterly earnings reports. 





Accountants ONLY ... 


Accountant's Client 
Write-up System 


1 
2 


3 


4 


5 


6 
7 
8 
9 


10 


11 


) Designed for Accountants 

) Allows multiple clients on same 
disk, accessed by client code. 

) Allows new accounts or new 
employees to be entered from data 
entry screen. 

) Supports multiple departments. 

) Running balance shown on screen 

during data entry. 

Payroll entries made from same 

entry screen as other entries. 

Accumulates all payroll information 

and prints Quarterly payroll reports 

including 941's 

) Prints W-2's and 1099's. 

) Produces client bill on a variety of 

bases. 

Produces more than 12 reports 

including Changes in Financial 

Position, Income Statement, Balance 

Sheet, Detailed General Ledger. 

) Includes automatic report printing. 


$150 





All programs run on IBM 
(PCjr/PC/XT/AT), AT&T, EPSON, 
TANDY (1000/1200/2000), TI, WANG, 
COMPAQ, CORONA, SANYO, 
COLUMBIA", and MS-DOS machines. 


Requires 128K Ram, 2 Floppies or 
Fixed Disk, 80 Column Printer, MS- 
DOS, PC-DOS 2.0 or later. 

*Computer & software names are 


trademark or registered by their respective 
manufacturers. 


MONEY BACK GUARANTEE! 





Service Contract 
Telephone consultation - S50/yr. 
Shipping charges $5.00 
Texas Resident add 64% Tax 
COD Charges $5.00 
Payment by Check, MC or VISA 
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TTENTION DEALERS!!!! Call or Write 


Now for the VERY BEST MARGINS (over 
50%) in the Industry. 


Micro Computer Business Services 





.. 12703 Stuebner Airline Houston, TX 77014 











Complete Package 
Individual Module- G LA PLA RI 
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Accountants’ Client Write-up System 

Pay Method: Prepaid, Check Enclosed: — 
MC, #_ 
VISA, #_ E 


INVE] 





Expires a signature: 1... 










QTY X $ 50.00 ea. = 
QTY  X$ 15.00 eå 


OTY. —— X $150.00 ea = 
Texas Residents Add 6s% = _  — — _— 
Shipping Charges — 500 
If COD add $5.00 
TOTAL 
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route through the menu system. 

If you have many programs to deal 
with, and don't want to have to re- 
member (or tell someone else) the 
filespecs to execute them, or the steps 
necessary to set up the peripherals, or 
if you just want to simplify your day- 
to-day dealings with DOS, look into 
Magic Menu. In spite of a few short- 
comings, some of which have appar- 
ently been addressed in Version 2.0, I 
would recommend this program man- 
agement software. 


(DeereSoft, Inc., P.O. Box 1360, Mel- 
bourne, FL 32901, $99.00) 


— Stanley Townsend 


Software 1000/1200/2000 


Getting Trim 
with Diet Wise 


For those of us who have been sitting 
at the computer for hours at a time, 
adding inches around the middle, Diet 
Wise software might be a practical 
purchase. 

The program doesn't display nasty 
warning messages when you've ex- 
ceeded 3,000 calories for the day, does 
not refuse to allow pizza or another beer 
in the diet, nor does it insist that you 
eat six grapefruit or ten bananas a day. 
Instead it counts the calories consumed 
in a day and calculates daily require- 
ments of fifteen vitamins and minerals. 

Diet Wise version 3.05 runs in 
monochrome on the Tandy 1000, 1200 
or 2000. Reports can be printed on the 
screen or output to an optional printer. 

The program has three separate 
functions: a data input file with up to 
50 different foods that produces a daily 
goal graph; a nutrient file which com- 
pares food values of up to twenty items; 
and a recipe/menu calculator that 
breaks down calories and vitamins in 
a recipe into individual calculations. 

Diet Wise has a database of food 
values of 800 foods. Another 300 items 
can be added to the database. 

The "nutrient goal graph" shows 


recommended daily allowances for 
vitamins and minerals, as well as Heart 
Association guidelines and U.S. dietary 
goals. The graph is personalized by an 
individual's age, sex, weight and nutri- 
ent intake. A personalized chart for 
each member of the family can be kept. 

Entering data is very simple. Break- 
fast is input with: “I cu orange juice, 
I lg egg, I sl white bread, and I cu 
coffee." After the food eaten during a 
day is input, a listing appears on screen 
which can be edited. (The edit function 
even allows the 4 oz. martini to be cut 
back to a 2 oz. one!) 

A goal graph profile is the next step. 
Age, sex, height, current weight and 
desired weight are prompted, and the 
demographic information appears for 
verification. If you add five inches to 
your height to compensate for the 200 
pounds, the computer will believe you. 

This goal graph is a nifty feature of 
the program. A bar chart is displayed 
showing the percentage of calories, 
sugar, alcohol, fat, carbohydrates, 
sodium, cholesterol and vitamins con- 
sumed in a day. If you've exceeded the 
recommended allowances, the program 
shows an "eat less" prompt. If you've 
failed to consume enough iron or 
vitamins, the program gently nags "eat 
more!” 

I was fascinated with the analysis of 
a typical day's diet. I included my mega- 
vitamin tablet in the database, and 
added my food intake to the program. 
Even though I ate a balanced diet, and 
took my daily pill, I was low in vitamin 
B-2 and iron. 

The high-low scan table in the 
program is very useful. In order to cut 
back on calories or increase consump- 
tion of calcium, a chart can be listed 
for up to 4 food groups. Foods con- 
sumed during the day are ranked from 
highest to lowest, so it is easy to 
determine which foods high in calories 
to avoid, or the ones highest in minerals 
to include in the diet. 

Perhaps you want to compare the 
nutrients in an apple with those in a 
peach. The database shows the fifteen 
nutrients in each fruit, and you can 
compare the calories, the amount of 
sodium or of vitamin B-1. 

The recipe calculator portion of the 
program is helpful. All the ingredients 
in a recipe are input, and the number 
of servings is entered. The recipe file 
is saved to disk by name, so “Ken’s 
Meatloaf" is included in the database, 
and an entry of *1 sv Ken's Meatloaf" 


automatically calculates the nutrients in 
each individual portion. 

The label function allows addition of 
foods to the database with information 
obtained from the food label. Perhaps 
you eat a bowl of "Crunchy Prune- 
flakes" cereal every morning, and want 
to calculate how much nutrition is in 
each serving. Once the data from the 
side of the box is entered into the Diet 
Wise program, you can call up the 
values of a bowl of this cereal. 

A very useful section of the operating 
manual is an excellent description of 
fifteen nutrients. Included are calories, 
protein, carbohydrates, sugar, fat, 
alcohol, vitamin A, vitamin C, thiamin 
(B-1), riboflavin (B-2), niacin, calcium, 
iron, cholesterol and sodium. The up- 
dated version of this software will also 
include potassium levels. 

The information section shows the 
measurement factor (grams, milligrams 
or international units) and the recom- 
mended daily level for adults and 
children for each nutrient. Reasons why 
each is useful are explained, and good 
food sources for each vitamin or min- 
eral are listed. 

The Professional Nutrient software 
program includes a few enhancements 
to the basic package. The expert mode 
is streamlined; 900 foods are included 
in the database, plus the 300 personal 
favorites which can be added. 

A chart compares three days rather 
than each day. Averages for the three 
days are shown. An activity log deter- 
mines the energy expenditure for ex- 
ercises such as running, washing dishes 
or debugging a program at the com- 
puter. The results of the activity log are 
interfaced with the calorie count in the 
graph program. 

The professional package also has a 
database editor. One feature lacking in 
the personal package is the ability to 
change food values once they have been 
entered. If you showed a hot fudge 
sundae at 50 calories by mistake, the 
$120 package would not allow editing. 

The professional package also allows 
the user to enter four more nutrients 
to the database. A price function may 
be added to the recipe calculation, and 
a price per serving is automatically 
calculated. 


(Diet Wise, $120.00, or the Nutripak 
Professional System, $349, are available 
from Nutritional Data Resources, P.O. Box 
540, Willoughby, OH 44094, 216-951-6593.) 


— M.J. Batham 
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MET New Products 








Tandy 2000 DeskMate, an in- 
tegrated software package in- 
cluding a text editor, work 
sheet, telecommunications, 
electronic mail and calendar. 
Similar to the program in- 
cluded with all Tandy 1000s. 
Tandy, distributed through 
Radio Shack stores nation- 
wide. Requires a 256K Tandy 
2000, Catalog No. 26-5278, 
$199.95. 


DeskSet, provides "desk-top" 
tools, including calculator, 
note pad, clip board, *Pop- 
DOS,” calendar, alarm clock 
and a telephone dialer. Tools 
can be accessed while running 
other applications and data 
can be transferred between 
tools and application. Adds 
about 128K to memory re- 
quirement of application run- 
ning. Bellsoft, 2820 Northup 
Way, Bellevue, WA 98004. Re- 
quires Tandy 1000 or 1200, 
$69.95. 


DR Graph, a software pack- 
age allowing the user to draw 
graphs and charts on the dis- 
play and plot or print the 
image. A Digital Research pro- 
duct distributed through 
Radio Shack stores nation- 
wide, Tandy 2000, Catalog 
No. 26-5278, $195.00. 


HomeBase, a desk-top organ- 
izer program offering telecom- 
munications, mailing label 
printing, a free-form database 
with cross-indexing and back- 
ground electronic mail, in addi- 
tion to features found on most 
desk-top programs. Amber 
Systems, 1711 S. Saratoga- 
Sunnyvale Road, San Jose, 
CA 95129. Requires Tandy 
1000 or 1200, $49.95. 


October 1985 


92 PCM 








Learing BASIC for the Tandy 
1000/2000, a book providing a 
step-by-step course in BASIC 
for both the Tandy 1000 and 
2000. Short, precise chapters 
with exercies that move you 
along through each subject. 
Chapters cover strings, math, 
display formatting, arrays, pro- 
gram control and sound. 
Tandy, available through 
Radio Shack stores nation- 
wide, Catalog No. 25-1500, 
$19.95. 


Macro*Track, an economic 
forecasting system for use by 
any manager or investor. Dis- 
plays graphs and charts with- 
out technical jargon. Black 
River Software Corporation, 
118 North Marshall Street, 
Suite 150, Winston-Salem, NC 
27101. Requires Tandy 1000 
or 1200, $299.95. 


MS-DOS Volume 1 — The 
Basics, a book by David A. 
Lien and Gary Williams, is the 
first of a two-volume set on 
the MS-DOS operating sys- 
tem. Commands are broken 
down into simple, straightfor- 
ward instructions. No attempt 
is made to go into technical de- 
tail in this volume. The book 
deals specifically with Tandy's 
MS-DOS computers. Tandy, 
available through Radio 
Shack stores nationwide, Ca- 
talog No. 25-1506, $7.95. 





PowerText Formatter, a word 
processing *add on" designed 
to work with pfs: Write, the 
IBM Writing Assistant and 
other word processors. The 
program enables users to pro- 
duce documents with justified 
text, true proportional text, 
footnotes, multiple columns, 
outlines and other complex 
styles. High Performance Com- 
puter Products, 417 Halstead 
Avenue, Harrison, NY 10528. 
Available for Tandy 1000 and 
1200, $49.95. 


Remote Disk, an easy-to-use 
file storage program allowing 
Model 100 owners to connect 
their portable to a Tandy 
desk-top computer and save 
and retrieve files on the larger 
computer's floppy or hard 
disk. Requires 16K Model 100 
and one of the following 
Tandy computers: Models I, 
11, HI, 4, 4P, 12, 16, 2000, 
6000 or Color Computer. 
Tandy, distributed through 
Radio Shack stores nation- 
wide, Catalog No. 26-3839, 
$59.95. 


Dac-Easy Accounting, a pro- 
gram for the Tandy 1000, 1200 
HD or 2000, is seven integrated 
modules on one disk including 
General Ledger, Accounts Re- 
ceivable, Accounts Payable, 
Purchase Order, Billing, Inven- 
tory and Forecasting. With 
Forecasting users can build a 








three year history of their bus- 
iness to plan the coming year. 
DAC Software, 5580 Petersen, 
Suite 130, Dallas, TX 75240, 
$69.95 plus $7.50 S/H, direct 


| order phone (214) 458-0038. 


The Tandy 200 Portable Com- 
puter, a learner’s manual by 
David A. Lien. The book cov- 
ers word processing, telecom- 
munications, schedule keep- 
ing, address directory, 
spreadsheet and a tutorial on 
BASIC. Written in the highly- 
successful tutorial style that 
has become Lien’s trademark. 
Tandy, available through 
Radio Shack stores nation- 
wide, Catalog No. 26-3869, 
$19.95. 


TMPC, a program designed to 
help manage "your most pre- 
cious commodity" — time. 
Features include a perpetual 
calendar, deadline capability 
and "to do" tracking. Requires 
a 16K Model 100. Acroatix In- 
corporated, P.O. Box 273, Wil- 
mington, MA 01887, cassette, 
$49.95. 


WriteROM, a Model 100 
word processing program that 
provides features such as cen- 
tering, setting margins, justifi- 
cation and headers and foot- 
ers. The program is contained 
on a snap-in ROM that plugs 
into the bottom of any Model 
100. Portable Computer Sup- 
port Group, 11035 Harry 
Hines Boulevard 4207, Dallas, 
TX 75229. Available for the 
Model 100, $149.95. 
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Using BA READ 2.1 


Bar code listings must be 
read in numerical order begin- 
ning with Line 1 and contin- 
uing through the last line of 
the listing. The computer 
display is used to prompt you 
as to which line to scan and 
give you warning messages 
should you happen to get out 
of step. 

When you run BAREAD, it 
asks you to scan the first line 
of the bar code listing. This 
line contains the name of the 
program as well as the begin- 
ning of the program itself. The 
computer will sound a high- 
pitched beep whenever it's 
ready for you to scan a line. 
After a line has been success- 
fully read, you'll hear a lower 
beep. A "blip-bloop" sound 
prompts you to turn your 
attention to the screen for a 
message. You'll hear this when 
you accidentally scan a line 
out of sequence. 

After reading the first line, 
you continue scanning with 


the second line. Remember to 
wait for a high beep before 
scanning and then listen for 
a low beep to indicate a suc- 
cessful read. 


Once the last line of the 
listing has been scanned, 
BAREAD will return control to 
the Tandy 100/200 menu 
screen. Note that the program 
you just scanned is now in the 
directory with a .DO extension. 

The final step is to convert 
the .DO text file to a normal 
BASIC program. This is done 
quite simply by going to BASIC 
and loading the file with a 
command such as LORD^TEST 

0” (if the program name 
were TEST). The program will 
load into BASIC and will be 
ready to run. To save the 
program in BASIC'S com- 
pressed format (.BA exten- 
sion), you'd type SAVE”TEST” 
(if the program were named 
TEST). You may then kill the 
-DO file with KILL “TEST.DO”. 
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Reader v2.1" 


BAREAD 2.1 


109g ' xxx Initialize *** 

1919 ON ERROR GOTO 1949 

1920 CLEAR 199% :MAXFILES=2 

193% GOTO 1959 

1949 IF ERR=5 THEN RESUME NEXT 

195% ON ERROR GOTO Ø 

1960 RUNM "B30F9" 

1979 OPEN "WAND:" FOR INPUT AS #1 

1989 UC%=-1 

1999 PC$-"9123456789ABCDEFGHIJKLMNOPQRST 
UVWXYZabcdefghijklmnopqrstuvwxyz- $+" 
119g DIM RW$(36) 

1119 ER$(1)="You must scan line 1 first! 


1120 ER$(2)="You've SKIPPED a line!" 
1139 ER$(3)="You've ALREADY SCANNED this 
line!" 

1140 ER$(4)="Code not PCM2/39 format!" 
1159 ER$(5)="Command not applicable here 
pu 

1160 ER$(6)="You cannot skip this line!" 
117g ER$(7)="Selected resume file not in 
computer!" 

1189 ' *** Read Reserved Words List **x* 
1199 DATA BEEP,CLEAR,CLOSE,DATA,DEFDBL,D 
EFINT,DEFNG,DEFSTR, ELSE, GOSUB, GOTO 

120g DATA INKEYS,INPUT,INSTR(,LCOPY,LEFT 
S(,LINE(,LOADM, LPRINT,USING,MAXFILES 
121% DATA MIDS$(,NEXT, PEEK, POKE, POWER, PRE 
SET(, PRINT, READ, RESTORE, RETURN, RIGHTS ( 
1229 DATA SOUND, SPACES(,STRINGS$( , THEN 
1239 FOR I$-1 TO 36:READ RW$(I$):NEXT I$ 
1249 ' *** Procedure Begins Here *** 
1250 CLS:PRINTQ44,"PCM Bar Code Program 
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126% LINE(20,4)-(219,18),1,B:LINE(22,6)- 
217716) LB 

127% NN$-1 

128% GOSUB 166Ø:IF ER%>Ø THEN GOSUB 162Ø 
:GOTO 128Ø 

1299 IF LL3=4 AND INSTR("YN",IL$)>Ø THEN 
ER%=5:GOSUB 1620:GOTO 128Ø 

1300 IF LL3=Ø THEN ON INSTR("ALSR",IL$) 

GOTO 1829,1899,1989,2959 

1319 IF LL$-1295 THEN 1359 

1320 IF LL$«2NN$ AND NN$-1 THEN ER%=1:G0 
SUB 162%:GOTO 128g 

1339 IF LL%<NN% THEN ER$-3:GOSUB 1629:GO 

TO 1289 

1349 IF LL%>NN% AND NN%>1 THEN ER%=2:GOS 

UB 162Ø:GOTO 1289 

1359 ILS-RIGHTS(IL$,19) 

1369 IF LL$-1 AND NN%>Ø THEN GOSUB 1789 
137% CL$=CL$+IL$ 

1389 FOR I$-1 TO LEN(CL$) 

1399 CH$=MID$(CL$,1%,1) 

1499 IF CH$="%" THEN GOSUB 1519:IF NL 

% THEN 147% ELSE GOTO 1449 

1419 IF CH$="/" THEN GOSUB 155Ø:IF NL 

% THEN 1470 ELSE GOTO 1449 

1429 IF CH$="." THEN UC%=NOT(UC%) : GOT 

O 1459 

1439 IF CH$=>"A" AND CH$<="Z" AND NOT 

(UC%) THEN CH$=CHR$(ASC(CH$)+32) 

1449 XX$=XX$+CH$:IF RIGHT$(XX$,1)-CHR 

$(13) THEN PRINT#2,XX$; :XX$="":UC3=-1 

1459 NEXT I$ 

1469 CL$="" 

1470 PRINTQ2ØØ,SPACES(8Ø); 

1489 IF LL%<>1295 THEN NN%=LL%+1:GOTO 12 

89 

1499 ' *** Done *** 

1509 CLOSE:CALL 61897!:CLEAR 59% ,HIMEM:M 





ENU 

1519 ' *** Decode Reserved Word *** 

1520 NL%=Ø:IF I%>LEN(CL$)-1 THEN NL$--1: 
CL$-"$":GOTO 1549 

1539 I$&-I$-1:CH$-RW$(INSTR(PC$,MIDS$(CL$, 
I$,1))) 

1549 RETURN 

1559 ' *** Decode Hex and Control Charac 
ters *** 

1569 NL%=Ø:IF I%>LEN(CL$)-1 THEN NL$--1: 
CL$-"/":GOTO 1619 

157g I$-I$-1:IF INSTR("/%.",MIDS(CL$,1I%, 
1))>@ THEN CH$-MID$(CL$,1$,1):GOTO 1619 
1589 IF I%>LEN(CL$)-1 THEN NL%=-1:CL$=RI 
GHT$(CL$,2):GOTO 1619 

159% HX$-MIDS$(CL$,1$,2):CH$-CHRS$ ( (INSTR( 
"9123456789ABCDEF" , LEFT$ (HX$,1)) -1) *1641 
NSTR("Ø123456789ABCDEF" , RIGHTS (HX$,1))-1 
) 

160g I%=I%+1 

161% RETURN 

1620 ' *** Error Codes *** 

1639 SOUND 5ØØØ,1Ø:SOUND 8909,10:SOUND 5 
999,19 

1649 PRINT@229- .5*LEN(ERS$(ER%) ) , ER$ (ER%) 


1659 RETURN 

1669 ' *** Get Code Line *** 

1679 PRINTQ173,"";:PRINT USING "Scan lin 
e ###";NN% 

1689 IF NN$--1 THEN PRINTQ173,"Scan any 
line":GOTO 1790 

169% SOUND 590,5 

1799 INPUTH1,ILS$:ER%=Ø 

171% FOR I$-1 TO LEN(ILS) 

1729 IF MIDS(IL$,I$,1)-"!" THEN MIDS(IL$ 
,I$,1)-" QC" 

1739 NEXT I$ 

1749 IF LEN(IL$)<>1 AND LEN(IL$)<>21 THE 
N ER%=4: RETURN 

1759 IF LEN(IL$)-1 THEN LL%=f : RETURN 
1769 LLS$=LEFTS (ILS, 2) : LL$=(INSTR("@12345 
6789ABCDEFGHIJKLMNOPQRSTUVWXYZ" , LEFTS$ (LL 
$,1))-1)*36+INSTR("Ø123456789ABCDEFGHIJK 
LMNOPQRSTUVWXYZ" , RIGHTS (LL$,1))-1 

1779 RETURN 

178% ' *** Open Program File *** 

1799 PNS-LEFT$(IL$,6):ILS$-RIGHTS(IL$,LEN 


(IL$) -6) 

18ØØ OPEN PN$ FOR OUTPUT AS $2 

1819 RETURN 

1829 ' *** Abort *** 
1830 BEEP: BEEP: BEEP 
1849 PRINT@299, "ABORT! 

1859 INPUT#1,AN$ 

1869 IF INSTR("YN",AN$)=Ø THEN BEEP: PRIN 

T@251,"Scan 'YES' or 'NO'":GOTO 1859 
187% PRINT@299 SPACES (89) ; 

1889 IF AN$-"Y" THEN CLOSE:KILL PN$+".DO 
":GOTO 149% ELSE GOTO 1289 

1899 ' *** Skip Line *** 

199% IF NN$-1 THEN ER%=6:GOSUB 162Ø:GOTO 
1289 

1910 BEEP:BEEP:BEEP 
1920 PRINT@219,"SKIP! 
1939 INPUT#1,AN$ 
1949 IF INSTR("YN",AN$)=Ø THEN BEEP: PRIN 
T8251,"Scan 'YES' or 'NO'":GOTO 1939 
1959 PRINTQ299 ,SPACE$(89) ; 

1969 IF AN$="Y" THEN NN%=NN%+1 

197% GOTO 1289 

1980 ' *** Stop & Save *** 

1999 BEEP:BEEP:BEEP 

2009 PRINTQ297,"STOP & SAVE! Are you sur 
e?": 

2919 INPUT#1,AN$ 

2020 IF INSTR("YN",AN$)=Ø THEN BEEP:PRIN 
T@251,"Scan 'YES' or 'NO'":GOTO 2919 
2039 PRINTQ2ØØ,SPACES(8Ø); 

2949 IF AN$="Y" THEN 1499 ELSE GOTO 1289 
2059 ' *** Resume *** 

2969 IF NN%<>1 THEN ER%=5:GOSUB 162Ø:GOT 
O 128g 

2070 PRINTQ254,"Resume Mode"; 

2080 NN%=1:GOSUB 1669 

2090 IF LL%=Ø THEN ER$-5 ELSE IF LL%<>1 

THEN ER%=1 

2199 IF ER%>Ø THEN GOSUB 1629:GOTO 2969 
2119 PN$-MID$(IL$,3,6) 

2120 ON ERROR GOTO 2149 

2130 OPEN PN$ FOR INPUT AS #2:GOTO 2170 
2149 RESUME 2159 

215% CLOSE #2 

2160 ER%=7:GOSUB 162Ø:GOTO 1279 

2174 CLOSE +2:OPEN PN$ FOR APPEND AS #2 

2189 NN$--1:GOTO 128g 


Are you sure?"; 


Are you sure?" 
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PLANR (FROM PAGE 39) 


a JNM AD M 
2 NG AU 
NK A MLT N 
NK 
5 INN 000000 
s KN E LLL 
2 OA 0 
JA 
KA 0 DL LLL 
RI AI 
x2. NINA EOM 
1.2 AO M 
2:3: MOM 0008 O 
4 O RO M 
2.5 AMAN 0 
e 0 
A LM 
2: NA AM 
1 JO AM 
20 INANEM 
21. JO A 
22 KA 0 
23 JO 
2 KON AV UM 
25 AN UEM 
26 MANO UM 
22 O O D 
28 IA, 
2 DA 
RA AL 
32 A NYA AM 
32 NG O I 
33 AO 
3 00000000000 I 
s. JO 
S3 IA O O I N T 
37 AO OA 
se JA LUAM 
39 AEN 
o. JA 
AL 
az JM 
43 JO ONN M 
JA O 
4S MAI 
IO IAEA 
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47. OG 
48. ANGA 
a AN 
se ANM DM 
Sa. JON 0000000000000 
2. JAN M 
3: JO 
SR 
ss. JAN 
se AAN 
52 JO 
se AO LUI 
s. JO AL 
se NOVAK O 
ex. JA 
2 ANA 
3 AG TNO 
Sa AI 0 0000 
5 ANN 
ss AM N M N 
2 AO 
e AVD 
as ANA UU 
2e. JON AA 
23. JONO 
22. IA 
“RULLU 
24 INIA i A 
2s. 00 
26 JA A A D N 
RA 
28 AAA 0 
25. JO 
e [IIA AE M 
e AN 
2 JANG 
BE AVATAR NUM 
Saa NON IRAM 
es. [IMAN 
se NAN 
2 KA 
e JU 
9 JM ANM 
se JM TEIL LAM 
21. AV 
32. NG M 
33: JO 
s JA AI 























3S AA 

se. L MMM TNN IN 

97. AN 

se 0 

SS JG YOM 
100 MANUNDU ONUNU INANEM 
21: 00000000 
x2. NA 
13 NN UU 
1 INIA ANNALIUM 
O IA OM 
105 AN 
1 INN MOI T N M 
xe JA 
13. AA ON 
caco INN 001000000010 000 
auaa IIA O 
21:12 JA ANO 
BER 
00000000 
Las INIA MN 
2:55 AN 
21:12 AN 
2:8. AN DNT I ILT 
La [AARAU M 
x20 JA 
x21 MARIA AOL 0 
122. OA IM 
1:23 ND 
128 LLL LL MULT TEE D MI 
12 VO 
1.26 IDR 000000 
A A D I 
126 0 
12 [MURRAY UM 
1:30 AA 
1:31. A 00000 
2:32 INN MA O 
2133 L AUI 
134 JANG OU 
35 JO UEM 
136 T N 


Abort Skip Line Stop & Save 


2:32 [MAINE 010 O a ALA L 
1:38 AV 
139 NK 
1:48 III AU AN 
141. IMM AUAM 
142 IA 0000 NTO N 
143 JA OTON 
144 JD 
1:45 [IA NAM 
24 KN OA T AN 
142 VO NAM 
x48 AA 
BER OM 
A OL 
x51. IMA ON 
2.52. VA 
1553 NI LM 
1.54 JO 
1. JKA 0 OT 
A A 
252 AA 
21558 JO DM 
1559 IOMA A ILE 
2.60 AO AG 
SA IM 
2.62 [MINUTEN RUNI AURA AM 
1:3: JMAMANEANVIUTHAN ON 
x4. IMA VO KA 
2:65 IMA MA HUM 
1.66 ANN OA T 
2 AAA I O O 
x JD 
1S. [MINNIE AN 
12 AA ARANA HUM 
>a MODAN RAN O 
122. UDO KVA 
223 IO 000 DM 
124 IO 0 
125 JG 
176 NN 
177 IMM 
228 AG VO 





UM ANM UN 


Resume Yes No 
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Join us for our very first show... 


Írímeton. NJ 


ou're invited to PCMfest, a great new show that's just 

Y for your Tandy computer. Sponsored by PCM, The 
Personal Computing Magazine for Tandy Computer Users, it's 

a wonderful way to meet and exchange information with those 
who share your interest in the new generation of Tand 
computers. 

You'll also discover the greatest variety of produgts 
for your computer because all of the favorites a lot of 
new ones will be featured in the exhibits of PCM advertisers. 
Try out that new program and take it home that very day! 

Along with other PCM readers, you'll meet the top national 
experts on your computer, including those who write for or 
who are written about in PCM. They will answer your questions 
on the spot. 

PCMfest also will include a comprehensive lineup of free 
seminars on topics of immediate concern — and all of them 
designed to help you get the most out of your Tandy computer. 

The Hyatt Regency—Princeton will be offering special rates 
($65, single or double room) for PCMfest. The show opens 
Friday evening with a 7 p.m. to 10 p.m. session. It's a daytime- 
only show Saturday — the exhibits open at 10 a.m. and run 
continuously until 6 p.m. On Sunday, the exhibit hall opens 
at 11 a.m. and closes at 4 p.m. 


Tickets may be obtained directly from PCM: We'll also send : 


you a special reservation form so you can take advantage 
of the special room rate. Come to PCMfest and let's celebrate 


the new generation of Tandy computers! 
aet YN 
gh sr entitles you to attend RAINBOWfest, 
S9 the highly popular show for the Tandy 
Color Computer which will run concurrently 
with PCMfest at the same location. 


Your admission to PCMfest also 















Get. 1-13 


Keynote Speaker 


Il Barden, respected author of 30 books on various computer 
subjects, will speak at our Saturday Breakfast at 8 a.m. (Separate 
tickets required.) 






Free Seminars 


Sam Redmon The Future of Portable Computing 
As co-founder of the Dallas-based Portable Computer Support 
Group, Sam markets a wide variety of software and hardware 
for the Tandy portables. 


Harry Brawley The Portable Computer Environment 
President of Sigea Systems, he is creator of the Telecommuter 
integrated communications and word processing software. 


Carl Oppedahl Computer Law and Portable Computers 
An attorney practicing law in Manhattan, Carl specializes. in 
*technological litigation. He is the author of a newly-published 
book titled Inside the TRS-80 Model 100. 


Bill Barden Computer Languages 
Discussion will include choosing the right language for your 
application and an overview of the most popular microcomputer 
languages including BASIC, C, PASCAL and Assembly. 


Bob Covington Data Communications 
A writer and editor from St. Louis, Bob is author of "The Portable 
Machine" series forthe Tandy 100 and the "Subroutine City" series 
for Tandy's MS-DOS computers. 


Howard Wolowitz Database Management 
President of Small Computer Company, Howard is one of the 
developers of Small's popular Profile and filePro database 
management systems. 


Danny Humphress ViaNet— Tandy's New Intra- 
Office Communications System 
PCM managing editor and author ofthe "MS-DOSsier" and "dBASE 


Tutor" series, Danny also owns a software firm in Louisville. 


A — — — — — — — —— — — — — — — — — — — — — Á— — — — — — — —— — — — — — — — — — — — — — — — — — — —À — — — — — — — — = 


YES, !'m coming to Princeton! | want to save by buying tickets now at the special advance sale price. 


Please send me: 

three-day tickets at $9 each total 

one-day tickets at $7 each total 

(Circle one) Friday Saturday Sunday 

Saturday Breakfast at $12 each total iiini 
Handling Charge $1 — 
TOTAL ENCLOSED 

U.S. FUNDS ONLY, PLEASE 
O Also send me a hotel reservation card for the Hyatt 
Regency-Princeton ($65, single or double room). 











Name (please print) 

Address 

Qiy:uussiuenecenintiiiunsiuneieiilsUsfatd 
Telephone: ussssiiscpocncpuuunccuugpluuins 
Company 


O Payment enclosed, OR O Charge to: 
El: VISA © MasterCard © American Express 


Account Number 
Exp. Date 
Signature 


Make checks payable to: PCM. Mail to: PCMfest, the Falsoft Building, P.O. Box 385, Prospect, KY 40059. To make reservations by 


phone, call: (502) 228-4492. 


Advance ticket deadline: October 4, 1985. Orders received less than two weeks prior to show opening will be held for you at the 
door. Tickets will also be available at the door at a slightly higher price. 














$269 


Now you can access LUCID, DISK +, 
WRITE ROM, RAM+ and others 
instantly. 


The 6 ROM BANK plus battery pack lets 
you have the ultimate Model 100 system. 
When you get your unit just press in up 
to 6 ROMS into the sockets then push in 
a simple plug into your Model 100's ROM 
socket. The ROM bank has two posts on 
either end that insert into the two little 
holes on the underside of your Model 100. 


The ROM bank props up the Model 100 at 
the same angle and height as those 
little legs you've seen. The ROM BANK 
itself is only about 12" deep and it runs 
the width of your Model 100. It only weighs 
one pound. It not only installs instantly, 
but it pops free in a second if you need 
everything to lie flat in a briefcase. 


A joint PCSG/CRYPTRONICS project. 


PORTABLE COMPUTER SURORT ORQUP 


11035 Harry Hines Blvd. No. 207, Dallas, Tx. 75229 


Change from ROM to ROM with the 
touch of a thumb switch. 


You can go from LUCID to WRITE to 
DISK + to any other ROMS just by turn- 
ing the thumb switch at the side of the 
ROM bank. The 6 ROM BANK is a sturdy 
well built construction that looks like it is 
a part of your Model 100. 


What is also fantastic is that the ROM 
bank has a powerful NICAD battery and 
recharger built right in. This power source 
supplies up to 30 hours of life to your 
Model 100 with just 6 hours of recharge. 
What's nice is that it recharges right from 
your Model 100's power adapter. This is 
a quick charge system and if you need 
power in a hurry, you can get 6 hours of 
life for your Model 100 by just charging for 
an hour and half. 


VISA / MASTER CARD / AM. EXP. / C.O.D. 


plus powerful Nicad 
battery pack that gives 
30 hours of power 
to your Mode! 100 


Suddenly, the Model 100 is a very 
powerful computer. 


If you have the HOLMES portable disk 
drive with its powerful bundled database 
software package or the CRYPTRONICS 
128K RAM expansion along with LUCID, 
WRITE ROM and DISK+ in the 6 ROM 
bank with its rapid rechargable NICAD 
power source, you have the ultimate port- 
able system. It's all available only from 
PCSG. 


As usual we don't want you to take our 
word for it. The 6 ROM BANK is sold on 
a 30 day trial. If you are not satisfied 
simply return within thirty days for a full 
refund. MC, VISA, AM. EX. or C.O.D. 


1-214-351-0564 






